OnKeyPress automatisch auslösen

[Sharky]

Lagere das was nach dem OnKeyPress passieren soll in eine eigene Methode aus (trennung von Funktion und GUI).

z.B.:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  StringGrid1.Cells[1,1] := 'meow';
  MacheEtwasImGrid (StringGrid1);
end;

procedure TForm1.MacheEtwasImGrid(Sender: TObject);
begin
  ShowMessage ('blubb');
end;

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key = #13) then
  begin
    MacheEtwasImGrid (sender);
  end;
end;