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