Снова тулбар
SPeller © (2002-07-28 08:52:00)
Здравствуйте! Такой вопрос: как определить, какая кнопка на
тулбаре была нажата пользователем? Вин СДК молчит по этому поводу,
на сайте мелкософта ничего не нашёл.
Юрий Зотов (2002-07-28 12:36:00) [1]
> Вин СДК молчит по этому поводу
Смотря как его слушать...
Одна из концепций Windows такова - при щелчке по пункту меню,
кнопке и т.п. генерится сообщение WM_COMMAND. В справке оно,
конечно, есть. Остальное просто.
type
TForm1 = class(TForm)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
private
procedure WMCommand(var Message: TWMCommand); message
WM_COMMAND;
end;
procedure TForm1.WMCommand(var Message: TWMCommand);
begin
inherited;
with Message do
if Ctl = Toolbar1.Handle then Caption := IntToStr(ItemID)
end;
Наверх 
ЧАТ |
Орешник |
|
