Переопределение функция WMNCHitTest.

← →
Zeratul © (2004-04-10 14:41) [0]

В главном юните переопределена функция WMNCHitTest, которая позволяет перетаскивать окно любой формы, захватив его мышкой.
На форме присутствует несколько Image-й, у которых есть свои собсвенные события OnClick. Так вот проблема в следующем - при переопределении функция WMNCHitTest, события OnClick у Image-й не работают. Как можно выйти из этой ситуации? Спасибо.

unit Unit1;

interface
uses
...
type
...
procedure WMNCHitTest(var Message:TWMNCHitTest);Message WM_NCHITTEST;
...
implementation

{$R *.dfm}

procedure TFormMain.WMNCHitTest(var Message:TWMNCHitTest);
begin
inherited;
Message.Result:=HTCAPTION;
end;
...

← →
default © (2004-04-10 15:09) [1]

var
можно по координатам
что-то типа этого
MI: Array of TImage;
...
procedure TFormMain.WMNCHitTest(var Message: TWMNCHitTest);
var
i: Byte;
begin
inherited;
for i := 0 to High(MI) do
if PointInRect(Message.Pos, MI[i].Left, MI[i].Top,
MI[i].Width, MI[i].Height) then Exit;
Message.Result := HTCAPTION
end;
PointInRect надо написать самому или использовать PtInRect

procedure TFormMain.WMNCHitTest(var Message: TWMNCHitTest); var i: Word; P: TPoint; begin inherited; for i := 0 to High(MI) do begin P := ScreenToClient(Point(Message.XPos, Message.YPos)); if (P.X >= MI[i].Left) and (P.X <= MI[i].Left + MI[i].Width) and (P.Y >= MI[i].Top) and (P.Y <= MI[i].Top + MI[i].Height) then Exit; end; Message.Result := HTCAPTION end; procedure TFormMain.FormCreate(Sender: TObject); var i: Word; begin // Image-и должны "принадлежать" FormMain for i := 0 to ComponentCount - 1 do if Components[i] is TImage then begin SetLength(MI, Length(MI) + 1); MI[High(MI)] := Components[i] as TImage end;

Переопределение функция WMNCHitTest. Найти похожие ветки