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.