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?