|
Emulate button press
The easiest way of the realization is direct calling of OnClick event:
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Button1.OnClick(Sender);
end;
- For more
-
Delphi Help
- Download source
|