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