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;