WideString in MessageBox ausgeben?

[CodeX]

Ich würde gerne einen Text, der als WideString (wg. multilanguage) vorliegt, in einer MessageBox anzeigen.
Das Problem ist, dass ein PChar erwartet wird und ich es auch durch diverse Castings nicht geschafft habe, den Text korrekt darzustellen.
Kann jemand helfen?

Delphi-Quellcode:

var myTitle, myText : WideSTring;
//[...]
if Application.MessageBox( myText, myTitle, MB_ICONQUESTION or MB_YESNO or MB_DEFBUTTON2) = IDYES then
   //ja ...

[_rEdoX]

Hi, versuchs mal so :

PCHar(string(widestr)) greetz

[Balu der Bär]

Ganz einfach in nen PChar umwandeln.

if Application.MessageBox(PChar(myText), PChar(myTitle), MB_ICONQUESTION or MB_YESNO or MB_DEFBUTTON2) = IDYES then

[Luckie]

Warum nimmst du nicht die API Funktion MessageBoxW? Dann kann man den String auch noch lesen, wenn er ausgegeben wird.

[CodeX]

Beide Vorschläge führen aber dazu, dass die Zeichen, die nicht in String oder Char enthalten sind, verloren gehen (deshalb ja auch WideString).
Ich habe gerade festgestellt, dass "MessageBoxW" scheinbar existiert, aber wohl nicht dokumentiert ist. Ich werde das mal testen.
edit: Und wie ich sehe, meint Luckie das gleiche.

[Luckie]

Wozu Dokumentation? Die Parameter sind identisch mit der von MessageBox, bis auf den Unterschied, dass es eben Unicode-Zeichen sind.

Delphi-Quellcode:

var
  s: WideString;
begin
  s := 'Hello World';
  MessageBoxW(Handle, PWideChar(s), 'Titel', 0);

[CodeX]

So scheint das ganze zu funktionieren:

Delphi-Quellcode:

var myTitle, myText : WideString;
//[...] 
if MessageBoxW(0, PWideChar(myText), PWideChar(myTitle), MB_ICONQUESTION or MB_YESNO or MB_DEFBUTTON2) = IDYES then

"Application." musste weg und der erste Parameter musste ein Handle (hWnd : HWND) sein. Die 0 scheint zu gehen, ich hoffe, das passt so.

edit: @Luckie, naja, exakt gleich sind sie eben nicht.

[Bernhard Geyer]

Zitat von CodeX:

edit: @Luckie, naja, exakt gleich sind sie eben nicht.

Sind sie schon. Du darfst jedoch nicht die Methode MessageBox der VCL-Klasse TApplication mit der Win32-API-Funktion vergleichen. Es gibt ja auch 'ne MessageBox-Funktion in der Win32-API.

[Luckie]

Ich habe auch nie von der Methode MessageBox von TApplication gesprochen, sondern von der API-Funktion MessageBox(W). Die Methode MessageBox von TApplication kapselt übrigens nur die entsprechende API-Funktion. Und hier ist die Dokumenattion: http://msdn.microsoft.com/library/de...messagebox.asp

BTW solltest du als Handle schon das Fenster angeben aus dem die Messagebox aufgerufen wird.

[CodeX]

Ihr habt ja Recht. Sorry und Danke!