Как поймать щелчок мыши по границе формы?

← →
smaller (2006-12-20 14:45) [0]

В аппликации открыто одно окно, нужна поймать щелчок мыши по его рамке.

← →
Ega23 © (2006-12-20 14:47) [1]

Что значит "рамке"?

← →
smaller (2006-12-20 14:56) [2]

То есть Border. А вообще по любому месту, за которое форму берут, чтобы изменить ее размер.

В ApplicationEvent.OnMessage события WM_LBUTTONUP WM_LBUTTDOWN в этой области не ловятся.

← →
Ega23 © (2006-12-20 15:04) [3]

Посмотри WM_NCLBUTTONDOWN, WM_NCLBUTTONUP, WM_NCLBUTTONDBLCLK

← →
smaller (2006-12-20 15:16) [4]

Увы! Нет эффекта.

← →
Anatoly Podgoretsky © (2006-12-20 15:20) [5]

> smaller (20.12.2006 15:16:04) [4]

А что значит увы, не ловятся или не получилось?

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } procedure WMNCLBUTTONDOWN(var msg: TWMNCLBUTTONDOWN); message WM_NCLBUTTONDOWN; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} { TForm1 } procedure TForm1.WMNCLBUTTONDOWN(var msg: TWMNCLBUTTONDOWN); begin inherited; case msg.HitTest of HTTOPLEFT:Caption:="TOP-LEFT"; HTTOPRIGHT:Caption:="TOP-RIGHT"; HTBOTTOMRIGHT:Caption:="BOTTOM-RIGHT"; HTBOTTOMLEFT:Caption:="BOTTOM-LEFT"; HTRIGHT:Caption:="RIGHT"; HTLEFT:Caption:="LEFT"; HTTOP:Caption:="TOP"; HTBOTTOM:Caption:="BOTTOM"; end; end;

← →
smaller (2006-12-20 16:08) [7]

"...не ловятся или не получилось?"
Видимо не ловятся-что в нислеследующем может не получиться?

procedure TMainW.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if msg.message = WM_NCLBUTTONUP
then begin
Label1.Caption:= IntTostr(round( Random(1000)));
end;
end;

(а с тем, что советует easy, cейчас попробую разобраться)

← →
smaller (2006-12-20 17:02) [8]

Many thanks и спасибо, все работает.

Как поймать щелчок мыши по границе формы? Найти похожие ветки