Форум: "Начинающим";
Текущий архив: 2006.03.19;
Скачать: [xml.tar.bz2];
ВнизКлик мыши на StatusBarе Найти похожие ветки
← →
Alex_C © (2006-03-01 15:05) [0]Как в событии OnMouseClick на StatusBar"е определить, на какой StatusBarPanel был клик?
← →
clickmaker © (2006-03-01 15:42) [1]GetCursorPos
искать в цикле, пользуясь Panels[i].Width
← →
Alex_C © (2006-03-01 15:47) [2]Дык это понятно. Думал - может какое готовое средство есть...
← →
begin...end © (2006-03-01 17:10) [3]> Alex_C © (01.03.06 15:47) [2]
uses CommCtrl;
type
TForm1 = class(TForm)
StatusBar1: TStatusBar;
private
procedure WMNotify(var Message: TWMNotify); message WM_NOTIFY;
end;
procedure TForm1.WMNotify(var Message: TWMNotify);
begin
with Message.NMHdr^ do
if (hwndFrom = StatusBar1.Handle) and (code = NM_CLICK) then
Caption := IntToStr(PNMMouse(Message.NMHdr).dwItemSpec);
inherited
end;
← →
Alex_C © (2006-03-02 08:28) [4]ОК! Спасибо!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.03.19;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.012 c