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

[Leisegang]

Jetzt bin ich entgültig verwirrt...
ich habe es eben auch ausprobiert mit einen Panel... und wieder bewegt es sich nicht weiter nach der Buttonprocedure...

hab auch mal die Proceduren in die Reihenfolge gebracht wie du sie angeordnet hast... aber Pustekuchen...
...
Das Image bei der Komponentenpaltte ist unter Zusätzlich aufgelistet

[fkerber]

Hi!

Welche Delphi-Version verwendest du denn? Dann würde ich das ganze Projekt mal anhängen, falls dir das dann hilft.
Vllt. kannst du das gleiche auch mal machen, vllt. sieht man dann einen Unterschied.


Ciao, Frederic

[Leisegang]

Ich verwende Delphi 4.
Ich würde ja lieber mit Delphi 7 oder so arbeiten, aber in der Schule zickt dann Delphi 4 rum ...

hab mein Projekt mal hier anbei gepackt
http://shanks.veritas-community.de/Projekt.rar

[fkerber]

Hi!

Faszinierend

Es scheint ein Problem mit deinem Delphi zu sein (bzw. vllt. mit D4 im Allgemeinen)

Also wenn ich deine exe öffne, geht es nicht. Lade ich in Delphi das Projekt und compiliere es, geht es (ich musste allerdings Unit3 aus den Uses und Form2 ganz entfernen, da da wohl irgendwelche Dateien fehlten)...

Fazit:
Mit D2007 geht es.
Ideen:
Leider keine, sorry.


Ciao, Frederic

[Leisegang]

ups die hatte ich wohl noch drin von n paar anderen Tests...
aber daran kanns ja auch nicht liegen...

mhm... ok...
Dankeschön für deine Bemühungen.

Kann man nicht irgendwie den Focus wieder auf das Image leiten?!? Irgendwie?

[himitsu]

ein TImage hat keinen Eingabefokus, da es ja nunmal kein Element zur Eingabe (Tastatur) ist.

[Leisegang]

Gibts nicht eine andere Möglichkeit, dass es sich weiterbewegt?
Also irgendwie das Programm wieder darauf zu "fixieren" ?