Снова тулбар

← →
SPeller (2002-07-28 08:52) [0]

Здравствуйте! Такой вопрос: как определить, какая кнопка на тулбаре была нажата пользователем? Вин СДК молчит по этому поводу, на сайте мелкософта ничего не нашёл.

← →
Юрий Зотов (2002-07-28 12:36) [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;

Снова тулбар Найти похожие ветки