Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
21. Jan 2004
Das sollte so richtig sein, aber bei mir ist es trotzdem nicht so. Ich hänge mal das Projekt hier dran.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
21. Jan 2004
Wer hat hierfür eine Erklärung:
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if ord (key) = VK_RETURN then begin
if StringGrid1.Col = 1 then
StringGrid1.Col := 4;
if StringGrid1.Col = 4 then begin
showmessage ('A '+IntToStr (StringGrid1.row));
StringGrid1.row := StringGrid1.row + 1;