![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как отловить нажатие на TitleBar ??? [D7, WinXP]
Zahar © (2004-10-07 20:02:00)Хочется выполнить действие Х при нажатии на TitleBar на форме...
Кто знает как ???
Zahar (2004-10-07 23:44:00) [1]Сработало вот так:
procedure wmncLButtonDown(var msg: TWMncLBUTTONDown); message wm_NclButtonDown;
...
procedure TForm1.WmNcLButtonDown(var Msg: TWMNCLBUTTONDown);
begin
inherited;
ShowMessage('Title Bar Ckicked !!!');
end;
Огромное спасибо!
olookin (2004-10-07 21:03:00) [2]Пржде чем отвечать - надо думать... Или по крайней мере читать... Я разумел ToolBar... Потому мое предыдущее отменяется...
olookin (2004-10-07 21:02:00) [3]А разве такм нет OnClick?
Yuri Btr (2004-10-07 20:13:00) [4]Сорри
.....
public
procedure wmncLButtonUp(var msg: TWMncLBUTTONUP); message wm_NclButtonUp;
.....
procedure TForm1.WmNcLButtonDown(var Msg: TWMNCLBUTTONDOWN);
begin
inherited;
ShowMessage('Title Bar Ckicked !!!');
end;
Yuri Btr (2004-10-07 20:07:00) [5]Лови сообщение WM_NCHITTEST у своей формы
там есть HTCAPTION