Текущий архив: 2007.01.14;
Скачать: CL | DM;
Вниз
Как поймать щелчок мыши по границе формы? Найти похожие ветки
← →
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]
А что значит увы, не ловятся или не получилось?
← →
easy © (2006-12-20 15:34) [6]
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 и спасибо, все работает.
Страницы: 1 вся ветка
Текущий архив: 2007.01.14;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.015 c
