Hallo Hansa,
ich poste niemals ungetesteten Code.
Hier ist meine
dfm-Datei.
Delphi-Quellcode:
object Form1: TForm1
Left = 133
Top = 103
Width = 415
Height = 540
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object StringGrid1: TStringGrid
Left = 8
Top = 16
Width = 333
Height = 481
DefaultRowHeight = 18
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
TabOrder = 0
OnKeyUp = StringGrid1KeyUp
OnSelectCell = StringGrid1SelectCell
end
end
Wie Du siehst habe ich geEditing gesetzt. Bei mir funktioniert das Beispiel einwandfrei. Wenn ich die Zelle rechts unten editiere und anschließend auf VK_DOWN drücke wird ein neue Zeile zum Stringgrid hinzugefügt.
[edit=Daniel B]Delphi-Tags gesetzt. MfG Daniel B.[/edit]