Key = '*' -> Edit1.Text = Akt. Datum

[Sharky]

Hai General,

versuche es mal so im OnKeyPress:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = '*') then
   begin
     Key := #0;
     TEdit(Sender).Text := DateToStr(Date);
   end;
end;