Boîte de message InputBox à composants multiples

Comment créer des messagebox du genre appelés avec InputBox() ou ShowMessage()?
J'ai essayé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure MonMessageBox; var F:TForm; I:TImage; begin F:=TForm.Create(Self); I:=TImage.Create(F); I.Parent:=F; I.Picture.LoadFromFile('...'); F.FormStyle:=fsStayOnTop; Form1.Enabled:=false; F.OnClose:=Form1.QuandOnFerme; F.Show; end;   procedure TForm1.QuandOnFerme(Sender: TObject; var Action: TCloseAction); begin Form1.Enabled:=true; end;

---

Mais c'est très différent de ShowMessage() et de InputBox() où le programme est bloqué au niveau de ces fonctions et ne continue que si on ferme la boîte de message. Je crois que c'est possible car ces fonctions font appel à des API Windows (int 2Eh).

Mon but est de créer des fiches comme ShowMessage mais à plusieurs TEdit et un TImage.

? J'ai pas compris ton pb.
Pour un pb similaire j'ai créé une unité qui contient tout ce qui m'interesse pour un message d'erreur et dedans j'ai rajouté le code :

Code:

---

1 2 3 4 5 6 7

procedure TIErrBox.Msg(str: string); begin Self.Caption := 'Information, Attention le problème suivant a été rencontré :'; ErrText.Text := str; self.ShowModal; end;

---

Où ErrText est un TMemo (tu peux mettre un TRicheEdit...)
Quand tu as un message d'erreur tu appelles par msg('ton message');
ça correspondà ce que tu cherches ?

L'instruction F.OnClose:=Form1.QuandOnFerme; déclenche la seule et unique chose c'est à dire "Form1.Enabled:=true;" c'est à dire rien lorsque Form1 est déjà active.

Moi je mettrais plutôt un Tbutton sur la Form1 (avec visible à false et Enabled à true) et dont l'événement onClick déclenche la :

Code:

---

1 2 3 4 5

procedure TForm1.MonButton1Clik(Sender: TObject; var Action: TCloseAction); var F : tForm; begin F:=Sender as TForm; F.Close; end;

---

... et en remplacant dans la procedure procedure MonMessageBox la fin à partir de F.OnClose:=Form1.QuandOnFerme, par :

Code:

---

1 2	F.OnClose:=Form1.MonButton1Clik; F.ShowModal;

---

pour achever le tout faudrait compléter la procédure MonMessageBox au moins par la création dynamique d'un label pour le message et d'un Edit posés sur F et éventuellement un bouton Ok et un bouton ignorer si tu veux quelque chose qui ressemble à InputBox() ou ShowMessage().

Merci philnext!

Et oui, ça correspond à ce qu'attendais.
Peux-tu m'expliquer le truc du "self."?

Code:

---

self.ShowModal;

---

Citation:

---

Envoyé par rakoto15

Peux-tu m'expliquer le truc du "self."?

Code:

---

self.ShowModal;

---

---

Self est une référence à l'objet. Ici la Form.

Bien c'est résolu

Mon seul prob c'est de ne pas avoir bien lu l'aide de c++ builder