Du hast doch den Sourcecode von
InputQuery in der
Unit Dialogs.
Du kannst diesen Sourcecode in eine eigene
Unit kopieren und zusätzlich eine Farbe zuweisen:
Delphi-Quellcode:
...
Edit := TEdit.Create(Form);
with Edit do
begin
Color := clLime; // <======= hinzu
Parent := Form;
Left := Prompt.Left;
Top := MulDiv(19, DialogUnits.Y, 8);
Width := MulDiv(164, DialogUnits.X, 4);
MaxLength := 255;
Text := Value;
SelectAll;
end;