[Çözüldü] Mouse down olayı

[Lord_Ares]

Merhaba, formun belli bir köşesinde mouse double clik olayı yapılmışsa işlem yaptırmak istiyorum. Aşağıdaki gibi denedim fakat bir türlü yakalayamadım. Çit tıklamayı nasıl yakalayabilirim.

Kod: Tümünü seç

if ( button=mbleft) and ( button=mbright) then showmessage('çift tıklama yapıldı')

Şöyle bişey gördüm ama nasıl kullanıldığını bulamadım. TMessage yerine ne yazmalıyım..

Kod: Tümünü seç

private
    procedure WMNCLBUTTONDBLCLK(var msg: TMessage); message WM_NCLBUTTONDBLCLK; { Private declarations }


procedure TForm1.WMNCLBUTTONDBLCLK(var msg: TMessage);
begin
  if msg.wParam = HTCAPTION then Caption := 'Double Click!';
  // Message.Result := 0; {to ignore the message}
  inherited;
end;

[Lord_Ares]

Nasıl yapılacağını bir üstadımız sayesinde öğrenmiş oldum kendisine buradan da çok teşekkür ediyorum.

Kod: Tümünü seç

 private

    procedure MyWMLButtonDblClk(var Message: TWMLButtonDblClk); message WM_LBUTTONDBLCLK;
    
     procedure TForm1.MyWMLButtonDblClk(var Message: TWMLButtonDblClk); 
 var
   X,Y : SmallInt;
 begin
   X := Message.XPos;
   Y := Message.YPos;
   ...
  end;