Hallo Hansa,
Zitat von
Hansa:
Da ist schon eines: Gibt es so was wie OnExitCell? Es geht mir darum, falls das Grid gefüllt ist noch eine Zeile dran zu hängen. Durch einen Buttonclick geht das, aber es müßte gehen, sobald eine Zelle einen Wert besitzt.
so könnte es mit der "PfeilNachUnten-Taste" funktionieren :
Delphi-Quellcode:
procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=40 {Down} then
begin
if (Stringgrid1.Row=Stringgrid1.RowCount-1) and
(Stringgrid1.Cells[1,Stringgrid1.Row]<>'') then
begin
Stringgrid1.RowCount :=Stringgrid1.RowCount+1;
end;
end;
end;
Gruß Jan