And to disable-enable:
procedure tmainfo.disablebutton(const sender: TObject);
begin
ttoolbar1.buttons[2].state := ttoolbar1.buttons[2].state + [as_disabled];
end;
procedure tmainfo.enablebutton(const sender: TObject);
begin
ttoolbar1.buttons[2].state := ttoolbar1.buttons[2].state - [as_disabled];
end;
--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/
_______________________________________________
mseide-msegui-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
