Sujet Précédent Sujet Suivant

Problème d'icone perso avec MessageBox

Résolu
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 14 août 2005 à 21:05
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 14 août 2005 à 21:05
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

Discussions similaires

Comment enlever l'icone d'un Form ?
cs_olive73 -
olive73 -

4 réponses
Comment faire pour changer l'icône de ma fenêtre au cours de son execution en pr
ndubien -
SnOOpss -

6 réponses
Icone du projet
albucia -
albucia -

9 réponses
Changement dynamique d'icone/ressources
cs_ABF -
Mayzz -

5 réponses
bibliothèque d'icone
djiki -
yaakoubienne -

3 réponses
Rejoignez-nous