Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#5

Re: StringGrid beliebig lang

  Alt 11. Jan 2007, 07:20
Herzlich willkommen in der Delphi-PRAXiS, InfoPeiler.

Eine gute Stelle für das Anfügen der neuen Zeile scheint mir das Ereignis OnKeyDown() des Grids zu sein:

Delphi-Quellcode:
procedure TDemoForm.StringGridKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  with Sender as TStringGrid do
    if (Key = VK_DOWN) and (Succ(Row) = RowCount) then
      RowCount := RowCount + 1;
end;
Freundliche Grüße vom marabu
  Mit Zitat antworten Zitat