Problème d'icone perso avec MessageBox [Résolu]

Signaler
Messages postés
3818
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2020
-
Messages postés
3818
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2020
-
Bonjour à tous

voilà, je repose m'a question plus clairement (en plus j'avais mal recopié la fonction donc forcément ... )

et je précise que j'ai éffectué une recherche dans les codes Sources mais aucun ne traite mon problème. Je n'en ai même pas trouvé un qui parlait d'utiliser une icone personel .

Je désir utiliser MessageBox avec une Icone personel
cela est normalement prévu dans Message Box mais
l'icone ne s'affiche pas
Voici le code utilisé :

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;
if SystemSound > 0 then
MessageBeep(SystemSound);
Result := integer(MessageBoxIndirect(MBParams));
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;
ce code devrait afficher une MessageBox avec l'icone principale du programme mais ca ne fonctionne pas

est ce que quelqu'un sait pourquoi