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

[Nalincah]

Ich hab ein Edit-Feld. Wenn man '*' drückt soll das aktuelle Datum reingeschrieben werden

Delphi-Quellcode:

procedure TForm1.EditBisDatumKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case key of
    106 : begin
            key := 0;
            TEdit(Sender).Text := DateToStr(Date);
          end;
  end;
end;

Leider steht hier aber "*09.08.2004". Wie kann ich das "*" rauskriegen?

[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;

[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