hallo hansa,
kann dein ergebnis nicht nachvollziehen, vllt ist es wirklich schon zu spät
folgender code:
Delphi-Quellcode:
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
with StringGrid1 do
begin
if col = 1 then
col:= 4
else
begin
if col = 4 then
begin
if rowcount mod 2 <> 0 then
begin
rowcount:=rowCount + 3 ;
row:=rowcount-1;
end
else
Begin
rowcount:=rowcount + 1 ;
row:=rowcount-1
end;
end;
col:=1;
end;
end;
end;
end;
brachte bei mir folgendes ergebnis
Code:
xxx --- --- xxx
xxx --- --- xxx
--- --- --- ---
--- --- --- ---
xxx --- --- xxx
xxx --- --- xxx