Einzelnen Beitrag anzeigen

Micha

Registriert seit: 21. Jul 2003
Ort: Neumarkt
263 Beiträge
 
#7

Re: MonthCalendar-Wert in Edit-Feld

  Alt 8. Aug 2003, 09:36
Ich habe von diesen Edit-Feldern und von den MonthCalendern jetzt 8 Stück in meiner Form.

Gibt es eine Möglichkeit, dass ich nicht für jeden Kalender diese prodecure schreiben muss?
Oder gibt's ne einfacher Möglichkeit?

Delphi-Quellcode:
// zeigt den MonthCalender für 1. Wert an
procedure Tdlg_users_bearbeiten.btn_beginn_1Click(Sender: TObject);
begin
calender_beginn_1.Visible := true;
end;

// bei Klick wird das Datum in das Edit-Feld geschrieben
procedure Tdlg_users_bearbeiten.calender_beginn_1Click(Sender: TObject);
begin
  edt_beginn1.Text := DateToStr(calender_beginn_1.Date);
end;

// bei Doppelklick wird der Kalender wieder "geschlossen2
procedure Tdlg_users_bearbeiten.calender_beginn_1DblClick(Sender: TObject);
begin
calender_beginn_1.Visible := false;
end;
  Mit Zitat antworten Zitat