Boîte de message InputBox à composants multiples

**randriano** · 07/04/2007, 13h35

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**philnext** · 07/04/2007, 14h18

? 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

**Gilbert Geyer** · 07/04/2007, 15h30

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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().