Buchstaben auf Tastendruck ...

[Dunkelbunt27]

Hallo Delphi-Praxis,

ich möchte auf Tastendruck das Zeichen der gedrückten Taste dem aktuellen Ort meines zweidimensionalen Dynamsichen Arrays zuweisen, eine Spalte weiterrutschen und den Buchstaben an die gewünschte Position zeichnen...

Ich hab mir das so vorgestellt:

Delphi-Quellcode:

procedure ... .FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  buchstabe[PositionSpalte,PositionZeile].Zeichen := char(Key);
  ...
  Spalteweiterrutschen;       // funktioniert, muss also nicht gepostet werden
end;
...

procedure buchstaben_zeichnen;                                                     
begin
  Paintbox.Canvas.TextOut(PositionSpalte,PositionZeile,buchstabe[PositionSpalte,PositionZeile].zeichen);
end;

Wenn ich also eine Taste drücke, dann rutsche ich eine Zeile weiter, aber zeichne keinen Buchstaben...

Was mache ich falsch?

FG Dunkelbunt

[Dunkelbunt27]

Ist es auch möglich das Ganze außerhalb von OnKeyDown abzufragen...

Weiß niemand einen Vorschlag?

[Edit] Sorry für Doppelpost [/Edit]

[WM_CLOSE]

Ja die möglickeit gibt es schon ,aber warum? (GetAsyncKexState z.B.)
Was steht denn in Key drin?

[Dunkelbunt27]

Es muss nicht unbedingt außerhalb sein, wenn es funktioniert mit OnKeyDown wär ich ja mehr als zufrieden. Was meinst du mit was steht in Key drin? Key müsste doch die gedrückte Taste sein in ASCII oder?

[patti]

Ich kann in dem von dir gepostetem Quelltext-Ausschnitt nirgends einen Aufruf deiner Zeichen-Routine sehen...
Des Weiteren sollte man auf eine PaintBox-Canvas nur in dem TPaintBox-Event "OnPaint" zeichnen, nicht in einer x-beliebigen Funktion (wobei man natürlich einzelne Fragmente in andere Methoden auslagern kann, aber die müssen dann eben aus der OnPaint-Routine raus aufgerufen werden), da sonst der Inhalt der PaintBox-Canvas beim nächsten Paint-Aufruf verloren ist. Deshalb also entweder einmalig auf ein Bitmap-Canvas malen und im OnPaint der PaintBox dann das Bitmap auf der Canvas ausgeben, oder im OnPaint-Ereigniss jedes mal alle Buchstaben aufs neue auf der PaintBox-Canvas ausgeben.

Edit: Beim OnKeyPress bekommst du übrigens gleich einen Parameter vom Typ char übergeben. Außerdem solltest du unbedingt die Eigenschaft "KeyPreview" deines Formulars auf true setzen, da es sonst passieren kann, dass das Key-Event nicht an dein Formular "durchgereicht" wird!

[Dunkelbunt27]

Sorry, mein Fehler, natürlich wird gezeichnet, im OnPaint wird natürlich mein buchstaben_zeichnen ausgeführt.
Ich weiß nur nicht wieso de rzu ezichnende buchstabe dort eventuell nicht ankommt.

[patti]

Rufst du denn auch irgendwo die Routine zum Neuzeichnen der PaintBox auf (z.B. PaintBox.Repaint; )?
Übrigens ist es im Moment so, dass du nur EINEN Buchstaben ausgibst. Wenn die OnPaint-Routine aufgerufen wird, ist die Canvas - vereinfacht ausgedrückt - leer. Wenn du dann nur einen Buchstaben per TextOut ausgibst, dann wirst du auch bloß einen sehen...

Bitte Edit in meinem oberen Post beachten...

[Dunkelbunt27]

Key Preview ist auf true, es wird neugezeichnet, alles hat ja vorher auch funktionier wie rahmen zeichnen usw.
Gibt es nicht schon einen "Algorithmus" um per Tastendruck die Buchstaben auf einer Paintbox auszugeben?

[WM_CLOSE]

Darf ich vielleicht fragen was genau du vorhast, bzw Warum. (Nur Interressehalber)
Und könntest du vielleicht den gesamten (relevanten) Code posten?

[Dunkelbunt27]

Ich habe nur vor eine taste zu drücken, dann das Zeichen an die dafür vorgesehene Stelle zu zeichnen.
Die Stellenberechnung ist fertig. Ich möchte nur noch wissen, wie man auf Tastendruck genau das Zeichen in den Speciher bekommt, bzw auf eine Variable (in meinem Fall ein Array) legt. Das ausgeben, ist ebenfalls kein Problem.

EDIT:
Hab das Problem gelöst. Man muss nachdem man Key dem richtigen Platz im Array zugewisen hat sofort danach den buchstaben zeichnen. Dann kann man erst weiterrutschen.

Danke für eure Anregungen und Hilfen =)