Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
21. Feb 2009
Hier der Code
procedure TForm1.dsAnzeigen;
begin
Label1.Caption:=losungen.ntvers;
Label2.Caption:=losungen.ntversst;
Label1.Width:=328;
Image19.Hint:=losungen.ntversst;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
21. Feb 2009
Ich weise den beiden Tasten die gleiche Funktion zu und sie arbeiten unterschiedlich. Ich spinne doch nicht. Die selbe Funktion, per VK_Left funkt alles richtig, VK_Right nicht. :wall: VK_Up auch ok, VK_Down spinnt wie die VK_Right.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
20. Feb 2009
Kann mir niemand helfen? :pale:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
20. Feb 2009
Irgendwie reagierеt das Programm auf die Right- u. Downtaste ganz komisch und das liegt nicht am Code, denn wenn ich die Funktion der Lefttaste (was sehr gut funkt) der rechten zuweise - spinnt das Prog. Wird der Code wieder zurück der linken zugewiesen geht alles ok.
Also bei den Right- und Downtaste funktioniert alles ok, bei den Left- und Uptaste nicht. :gruebel:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
20. Feb 2009
Na endlich :thumb:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key=VK_RIGHT then showmessage('Rechts');
If Key=VK_LEFT then showmessage('Links');
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
20. Feb 2009
Bei OnKeyDown OnKeyUp funkt überhaupt nicht, nicht mal Enter.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
20. Feb 2009
Ach so... und wieso brauche ich zwei Ereignisse? Reicht nur OnKeyDown?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
20. Feb 2009
Hab da nix gefunden, VK_Right, CHR(37)Links oder CHR(39)Rechts funktionieren nicht. :wall:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
20. Feb 2009
Hab jetzt folgenden Code
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=CHR(VK_RETURN) then showmessage('ok');
end;
Das funkt auch, aber das hier:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
20. Feb 2009
Kannst du mir dann ein Stichwort geben, für die F1 halt?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
20. Feb 2009
Und deutlicher vielleicht? :gruebel:
Wie erkenne ich die Tasten, wie lautet der Code? Für Enter z.B. CH(13) und für die Links-Rechts Tasten?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
20. Feb 2009
Hab folgende Freeware (siehe Screenshot) mit zwei Pfeilen, nach Links und Rechts. Zur Zeit kann man sie nur mit der Maus betätigen. Ich will es aber so haben, dass sie auch mit der Pfeiltasten auf der Tastatur betätigt werden können.
Hab aber keine Idee wie es geht, wer kann mir helfen?
Ich kenne sowas ähnliches mir EditFeld und OnKeyDown aber hier... keine Ahnung. :gruebel: