Форум: "Начинающим";
Текущий архив: 2007.01.14;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.017 c