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

[beny_fritz]

Hi,
Irgendwie bisch im Falschen Event und hasch den Falschen ASCII-Code.
So geht's:

Delphi-Quellcode:

procedure TForm1.EditBisDatumKeyPress(Sender: TObject; var Key: Char);
begin
  case key of
    #42 : begin
            key := #0;
            TEdit(Sender).Text := DateToStr(Date);
          end;
  end;
end;

Gruss Beny