[ivanov34]

It is probably necessary to transfer focus to other object

Code:

procedure TForm1.sSpeedButton1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
XXX.SetFocus;
end;

[Author]

Posts