Inputbox mit autmatischer Längenanpassung wie Messagebox

[Bummi]

Ich würde mir eine passendes Formular basteln ....
Eingriffsmöglichkeiten gäbe es schon, allerdings müsste man da auch erst alles benötigte zusammensuchen .... z.B. in der Art wie unten, tut aber nicht das was Du brauchst...

Delphi-Quellcode:

var
  t:TMyThread;
begin
    t:=TMyThread.Create;

  MessageBox(0, Frage, 'Test', MB_ICONWARNING or MB_OK);
 InputBox(Application.Title+' ',Frage,'');
 t.Free;
end;

{ TMyThread }

procedure TMyThread.Execute;
var
  h:Thandle;
begin
  inherited;
  while not Terminated do
    begin
      h := FindWindow(nil,Pchar(Application.Title+' '));
      if h>0 then MoveWindow(h,0,0,400,400,true);
      sleep(50);

    end;
end;