Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

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

Re: Neues Icon für Messagebox

  Alt 27. Jun 2007, 10:48
so gehts
Delphi-Quellcode:
{$R 101.res}  //Den Compiler anweisen die Datei "101.res" einzubinden (du kannst für deine .res-Datei bzw .rc-Datei auch jeden beliebigen anderen Namen nehmen, der spielt für den quelltext keine Rolle
procedure TForm1.Button1Click(Sender: TObject);
var
  MsgParams: TMsgBoxParams;
begin
  MsgParams.cbSize:=SizeOf(TMsgBoxParams);
  MsgParams.hwndOwner:=Self.Handle;
  MsgParams.hInstance:=HInstance; //in Diesem Fall: HInstance = MainInstance
  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:=MAKEINTRESOURCE(101);;
  MsgParams.dwContextHelpId:=0;
  MsgParams.lpfnMsgBoxCallback:=nil;
  MsgParams.dwLanguageId:=0;

  MessageBoxIndirect(MsgParams);
end;
im übrigen kannst du -r auch weglassen (wird nicht mehr unterstützt)
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat