Mega Code Archive

 

Categories / Delphi / System

 

Bir windowa program icinde mouse ile tiklanmasi

procedure DoClick(AHWND: HWND); begin SendMessage(AHWND, WM_LBUTTONDOWN, 0, 0); SendMessage(AHWND, WM_LBUTTONUP, 0, 0); end; { Label1'e tiklandiginda Button1 kendine tiklanmis gibi algilayacaktir } // Kullanimi: procedure TForm1.Label1Click(Sender: TObject); begin DoClick(Button1.Handle); end;