Unit siehe oben (die ist komplett im ersten Post),
TestProgramm:
Erstelle ein neues Projekt, setze einen Button in die neue Form und weise dem OnClick-Ereignis folgendes zu:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
s : String;
begin
Application.CreateForm(TfrmInputDialog, frmInputDialog);
frmInputDialog.ShowModal;
frmInputDialog.Free;
end;
Die
Unit in der TfrmInputDialog muss natürlich dann noch in das Testprojekt eingebunden werden.
Ich habe festgestellt, dass wenn ich die Anchors-Anweisungen weglasse, dass dann die Controls richtig angezeigt werden. Doch die sind nötig um die Buttons auch bei Größenänderungen an den entsprechenden Stellen zu halten ohne die neuen Positionen selbst berechnen zu müssen.
Aber möglicherweise bleibt mir nichts anderes übrig
<edit>
Anhänge vergessen
</edit>