Inputquery mit TDatePicker

[KodeZwerg]

Zitat von NoGAD:

1. Danke für den Code.
2. Wie kann ich die Ausrichtung verändern, dass lbl1 über dem Edit und lbl2 über dem TDatePicker angeordnet sind?

1. Gerne doch.
2. Fange beim obersten Element an, setze es auf .Top := 0; , mach das für jedes Element, jeweils eine Nummer größer = fertig
(also "lbl1.Top := 0" "edt.Top := 1" usw)

Ps: Kannst auch wieder 'ne methode draus machen, dann lass "date" weg, setz das als "var date: TDate", lass checker weg und nehme "Result" dafür.
"if result then date := dp.date;" ...huch... dann brauchst du auch noch edt als return wert?... nehm den auch in "var" mit auf von methode.