Imaqe nach Buttonprocedure weiterbewegen

[himitsu]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Hallo');
  Button1.Visible:=false;
  SetFocus;  <<<<<<<<
end;