TDBmemo einfügen geht nicht

[marabu]

Hi,

das geht auch mit weniger Code:

Delphi-Quellcode:

procedure TDemoForm.DBMemoKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F5 then
    with Sender as TDBMemo do
    begin
      Key := 0;
      DataSource.Edit;
      SelText := DateTimeToStr(Now);
    end;
end;

Grüße vom marabu