Imaqe nach Buttonprocedure weiterbewegen

[fkerber]

hi!

Da ist im Prinzip genau dein Code...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('Hallo');
button1.visible:=false; 
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
button1.Visible:=false;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case Key of
  VK_UP: begin
                   image1.top:=image1.top-1;
                   Key :=0;
               end;
  VK_DOWN: begin
                   image1.top:=image1.top+1;
                   Key :=0;
               end;
  VK_LEFT: begin   image1.left:=image1.left-1;
                   Key :=0;
               end;
    VK_RIGHT: begin
                   image1.left:=image1.left+1;
                   Key :=0;
               end;

  end;
  button1.visible:=true;
end;
end.

Einziger Unterschied:
Ich habe statt nem Image ein Panel genommen, weil ich grad das Image nicht auf der Komponentenpalette gefunden habe
Und ich hab die Keydown-Sache etwas vereinfacht wegen der Abfragen...

Ciao, Frederic