MessageBoxRésolu

Question

Jed&#233;sir utiliser MessageBox avec une Icone personel
cela est normalement pr&#233;vu dans Message Box mais
l'icone ne s'afiche pas
Voici le code utiliser :

function TForm1.MessageBoxExtended(hWnd: integer; lpText: PChar;
                                   lpCaption: PChar; uType: integer;
                                   IconResourceName: PChar;
                                   SystemSound: integer;
                                   UseAppIcon: Boolean): integer;
var
     MBParams: TMsgBoxParams;
begin
     with MBParams do
     begin
          cbSize := SizeOf(MBParams);
          hwndOwner := hWnd;
          hInstance := SysInit.HInstance; 
          lpszText := lpText;
          lpszCaption := lpCaption;
          dwStyle := uType + MB_TOPMOST;
          if UseAppIcon then
          Begin
             dwStyle := dwStyle or MB_USERICON;
             lpszIcon := IconResourceName;
             dwContextHelpId := 0;
             lpfnMsgBoxCallback := nil;
             dwLanguageId := LANG_NEUTRAL;
             End;
     end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     Self.MessageBoxExtended(Self.handle, Ceci est un example d''icone personel dans votre MessageBox', 'Icone Personel',
     MB_YESNO, 'MAINICON', MB_ICONQUESTION, True)
end;

est ce que quequ'un sait pourquoi ?

cs_Delphiprog · Accepted Answer

Peut-&#234;tre n'as-tu pas vu ce code de Inekman : API :: MESSAGEBOXINDIRECT


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

cs_Delphiprog · Answer

Merci de bien vouloir mettre des titres plus explicites que "Besoin d'aide !" 

Une petite recherche dans les codes sources aurait d&#233;j&#224; rapport&#233; plusieurs r&#233;ponses.
Voir ci-dessus le formulaire "rechecher sur le site".


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Cirec · Answer

bonjour DelphiProg
ca y est les liens fonctionent 
Mais il n'y arien pour mon probl&#232;me
moi je d&#233;sir utiliser une Icone PERSONEL dans la MessageBox
et non les Icones par D&#233;faut. 
Tout ce qui est d&#233;cri  dans les diff&#233;rents codes que j'ai lu je le savai d&#233;j&#224; , mais aucun ne parle de cela  :(

Voil&#224; j'esp&#232;re avoir &#233;t&#233; claire et excuse moi pour le Titre 
Merci @+

Cirec · Answer

Merci beaucoup &#224; toi DelphiProg
Effectivement j'avais pas vue la source de InekMan

ce qui veut dire que le probl&#232;me c'est que moi j'avais donn&#233; un nom pour identifier l'icon et non un nombre Icone1 au lieu de 105 par ex. 

en tout cas c'est g&#233;nial ca fonctionne 

Merci encore 
et Bonne Prog 
@ +

MessageBox

4 réponses

Votre réponse

Discussions similaires