Текущий архив: 2002.09.19;
Скачать: CL | DM;
Вниз
Снова тулбар Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Текущий архив: 2002.09.19;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.018 c
