Einzelnen Beitrag anzeigen

Michi123

Registriert seit: 27. Jun 2007
9 Beiträge
 
#1

Neues Icon für Messagebox

  Alt 27. Jun 2007, 02:35
Hey,
hab folgendes Problem. Will bei einer messagebox das Standardicon (wie z.b. Fragezeichen,...) durch ein eigenes neues Ersetzten.
Dabei bin ich jedoch nur so weit gekommen, dass ich das Programmsymbol anstatt den anderen anzeigen lassen kann.
Den untenstehenden Quellcode habe ich dafür auf einer Website gefunden.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var MsgParams: TMsgBoxParams;
begin
  with MsgParams do
  begin
     cbSize:=SizeOf(TMsgBoxParams);
     hwndOwner:=Application.MainForm.Handle;
     hInstance:=MainInstance;
     lpszText:='Lobby Broadcaster'+ #13 +'Version: 1.1.0'+ #13 +''+ #13 +'Copyright © 2000 - 2005 by Me.'+ #13 +'All Rights Reserved.';
     lpszCaption:='About Product';
     dwStyle:=MB_OK or MB_USERICON;
     lpszIcon:=Pointer(PWideChar(WideString('MAINICON')));
     dwContextHelpId:=0;
     lpfnMsgBoxCallback:=nil;
     dwLanguageId:=DWORD(MAKEINTRESOURCE(LANG_NEUTRAL));
  end;

 MessageBoxIndirect(MsgParams);
end;
Wenn ich jetzt jedoch die Zeile "lpszIcon:=Pointer(PWideChar(WideString('MAINICON' )));" umschreiben würde, sodass ein symbol aus einer resourcen-datei geladen werden soll, so wird kein Symbol in der messsagebox angezeigt.

Weiß jemand vielleicht eine Lösung für das Problem?
  Mit Zitat antworten Zitat