Silvester Countdown

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von netscanner · begonnen am 29. Dez 2005 · letzter Beitrag vom 31. Dez 2005

Vorheriger Beitrag

Nächster Beitrag

ManuMF

Registriert seit: 11. Jul 2005
1.016 Beiträge

Delphi 6 Personal

#27

Re: Silvester Countdown

31. Dez 2005, 21:00

Es gibt dann noch TMaskEdit. Da hat man aber keine Kalender-Auswahl.

Alternativ ein TEdit zum Eingeben:

markieren

Delphi-Quellcode:

			procedure TForm.EditKeyPress(Sender: TObject; var Key: Char);

begin

  If not (key in [#48..#57,#8]) then

    key := #0;

end;

procedure TForm.ButtonClick(Sender: TObject);

begin

  DateTimePicker1.Date := StrToDate('01.01.' + Edit.Text);

end;