InputQuery - Button Caption

[user0815]

Hallo,
wenn ich den nachfolgenden Code ausführe dann sind dort 2 Button zu sehen, einer mit OK und einer mit Abbrechen.
Ich dachte jetzt das das ganze System abhängig ist, also in England dort: OK und Abort angezeigt wird, das ist aber nicht so.

Kann ich die Button Caption selbst festlegen ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Value: string;
begin
  if InputQuery('TEST', 'Name eingeben: ', Value) then
    ShowMessage('Hallo ' + Value + ' !');
end;

[DeddyH]

Bei InputQuery nicht, da ergibt sich die Caption aus den Konstanten SMsgDlgOK bzw. SMsgDlgCancel. Aber Du kannst Dir ja eine eigene Funktion schreiben, wo sich die Caption dann festlegen lässt.

[Luckie]

InputQuery ist nur eine schon in der VCL vorimplemntierte Formularvorlage. Die Messeageboxen werden die du meinst werden vom System gestellt und werden direkt per API Aufrufe erzeugt/angezeigt. Dort sind die Schaltflächen dann natürlich auch in der Sprache der Windowsinstallation beschriftet.

[uligerhardt]

Du kannst die von Delphi vorgegebenen Strings ersetzen, z.B. wie hier: http://www.delphibasics.info/home/de...ringsatruntime

[himitsu]

Und man kann die Sprache der VCL/RTL auch umschalten (vor dem Compilieren).

[user0815]

Danke !
Ich habe diesen Link hier gefunden: http://www.swissdelphicenter.ch/torr...ode.php?id=709

An MyInputQuery übergebe ich zusätzlich die Button Caption´s.
An GetAveCharSize übergebe ich zusätzlich die die Länge von APrompt. Diese setze ich dann length(APrompt) + 15 oder mindestens auf 50.