savkic, ovo nisam potpuno razumio.
Pokušaso sam sa prosljeđivanjem, na formi - lakše nego u kontroli na način:
- na formi su 2 gumba
- na gumbu Button1 koristim OnMouseDown i OnMouseUp
Code:
procedure TForm2.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SendMessage(Button2.Handle, WM_LBUTTONDOWN, 10, 10);
end;
procedure TForm2.Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SendMessage(Button2.Handle, WM_LBUTTONUP, 10, 10);
end;
Kada prisnem lijevu tipku miša na Button1:
- Button2 dobije fokus
- okine se Button2.OnMouseDown
Button2 vizualno ne simulira MouseDown, tj. ne dobije izgled kao da je prisnut.