BCB: MessageBox läßt sich nicht mit WideStrings füttern

[messie]

Hallo,

vielleicht liegt es auch an der Hitze aber ich bekomme keine brauchbare Umwandlung eines WideStrings für die Messagebox hin

Code:

WideString AusgabeText

if (Application->MessageBoxA(AusgabeText, "", MB_YESNO) == 6)
{
  machwas...
}

Muß doch gehen, zumal Windows selbst das seit XP ja kann. Da steht doch ein API-Befehl hinter..

Grüße, Messie

[xaromz]

Hallo,

Wie wäre es, MessageBoxW zu verwenden? Das ist nämlich die WideString-Variante.
Oder gibt's das in Deinem BCB nicht?

Gruß
xaromz

[messie]

Zitat von xaromz:

Wie wäre es, MessageBoxW zu verwenden?

gibt es, ist aber nicht dokumentiert. Aber die Widestrings schluckt das Ding auch nicht, interessanterweise für den anzuzeigenden Text, nicht aber für die Caption

Delphi-Quellcode:

WideString s;

  if (MessageBoxW(s,s, MB_YESNO) == 6)
  {
    //Anweisung
  }

wird angemeckert mit

Zitat:

E2342 Type mismatch in parameter 'lpCaption' (wanted 'const wchar_t *', got 'long')

Das kann ich mir nicht erklären (vielleicht doch die Hitze)

Grüße, Messie

[Luckie]

In Delphi:

Delphi-Quellcode:

var
  ws: WideString;
begin
  ws := '....';
  MessageBoxW(Handle, PWideChar(ws), PWideChar(ws), 0);

Du musst den WideString nach LPCWSTR casten und das entspricht einem PWideChar in Delphi:
WinUser.h:

Code:

int
WINAPI
MessageBoxW(
    __in_opt HWND hWnd,
    __in_opt LPCWSTR lpText,
    __in_opt LPCWSTR lpCaption,
    __in UINT uType);

[ErazerZ]

Zitat von messie:

Zitat von xaromz:

Wie wäre es, MessageBoxW zu verwenden?

gibt es, ist aber nicht dokumentiert. Aber die Widestrings schluckt das Ding auch nicht, interessanterweise für den anzuzeigenden Text, nicht aber für die Caption

Delphi-Quellcode:

WideString s;

  if (MessageBoxW(s,s, MB_YESNO) == 6)
  {
    //Anweisung
  }

wird angemeckert mit

Zitat:

E2342 Type mismatch in parameter 'lpCaption' (wanted 'const wchar_t *', got 'long')

Das kann ich mir nicht erklären (vielleicht doch die Hitze)

Grüße, Messie

du hast vergessen das Handle anzugeben also richtig müsste es lauten:

Delphi-Quellcode:

  WideString s;
  s = "test";

  if (MessageBoxW(0, s, s, MB_YESNO) == ID_YES)
  {
    //Anweisung
  }

[messie]

Zitat von ErazerZ:

du hast vergessen das Handle anzugeben

Ja, das war's. Also doch die Hitze...

Danke, Messie