Текущий архив: 2004.10.24;
Скачать: CL | DM;

Вниз

Как отловить нажатие на TitleBar ???   Найти похожие ветки 

← →
Zahar   (2004-10-07 20:02) [0]

Хочется выполнить действие Х при нажатии на TitleBar на форме...
Кто знает как ???

---

← →
Yuri Btr ©   (2004-10-07 20:07) [1]

Лови сообщение WM_NCHITTEST у своей формы
там есть HTCAPTION

---

← →
Yuri Btr ©   (2004-10-07 20:13) [2]

Сорри

.....
public
procedure wmncLButtonUp(var msg: TWMncLBUTTONUP); message wm_NclButtonUp;
.....
procedure TForm1.WmNcLButtonDown(var Msg: TWMNCLBUTTONDOWN);
begin
 inherited;
 ShowMessage("Title Bar Ckicked !!!");
end;

---

← →
olookin ©   (2004-10-07 21:02) [3]

А разве такм нет OnClick?

---

← →
olookin ©   (2004-10-07 21:03) [4]

Пржде чем отвечать - надо думать... Или по крайней мере читать... Я разумел ToolBar... Потому мое предыдущее отменяется...

---

← →
Zahar   (2004-10-07 23:44) [5]

Сработало вот так:

procedure wmncLButtonDown(var msg: TWMncLBUTTONDown); message wm_NclButtonDown;
...
procedure TForm1.WmNcLButtonDown(var Msg: TWMNCLBUTTONDown);
begin
inherited;
ShowMessage("Title Bar Ckicked !!!");
end;

Огромное спасибо!

---

Страницы: 1 вся ветка

Текущий архив: 2004.10.24;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.041 c