Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#7

Re: Neues Icon für Messagebox

  Alt 27. Jun 2007, 09:15
wenn du mit Icon-Indexes arbeitest gehts so:
Delphi-Quellcode:
  MsgParams.cbSize:=SizeOf(TMsgBoxParams);
  MsgParams.hwndOwner:=Self.Handle;
  MsgParams.hInstance:=GetModuleHandle('shell32.dll');
  MsgParams.lpszText:='Lobby Broadcaster'+ #13 +'Version: 1.1.0'+ #13 +''+ #13 +'Copyright © 2000 - 2005 by Me.'+ #13 +'All Rights Reserved.';
  MsgParams.lpszCaption:='About Product';
  MsgParams.dwStyle:=MB_OK or MB_USERICON;
  MsgParams.lpszIcon:=Pointer(13); //Icon13 aus IconGroup verwenden
  MsgParams.dwContextHelpId:=0;
  MsgParams.lpfnMsgBoxCallback:=nil;
  MsgParams.dwLanguageId:=0; //0 = Neutral

  MessageBoxIndirect(MsgParams);
oder laut msdn anstelle von:
MsgParams.lpszIcon:=Pointer(13); //Icon13 aus IconGroup verwenden lieber
MsgParams.lpszIcon:=MAKEINTRESOURCE(13); //Icon13 aus IconGroup verwenden wobei MAKEINTRESOURCE auch nur ein PChar ist was wiederum ein Pointer ist was also nichts anderes macht als die 13 zu einem Pointer zu casten.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat