Discussion :

[Bouguennec]

Bonjour,
Je voudrais afficher un fichier text sur une boite du type Messagedlg, mais je n'y arrive pas. La messagebox me paraissais intéressante mais celle que j'ai n'est pas la même que celle décrite dans l'aide.
J'espère que vous pourrez m'aider.
Merci

[Pascal Jankowski]

Pourquoi ne pas créer toi même cette boîte de dialogue.
1- Tu dérives une classe TForm en créant une nouvelle fiche
2- Tu agrémentes toi-même son contenu
3- Tu crées dynamiquement cette nouvelle fiche et tu l'affiches de façon modale dès que tu l'appelles.

Cordialement

[tatareau]

En effet il vaut mieux créer soi-même la fiche. Car si ton texte est long ou bien tu n'en maitrise pas la longueur tu peux profiter des propriètes d'un TMemo par exemple dans ta TForm en fsStayOnStop. Les boites de messages sont là dans le but d'un message court et explicatif ou interrogatif (cf egornomie de travail).
Bon Code

[Bouguennec]

Je ne sais pas trop si c'est exactement ce que vous m'avez dis mais j'ai fait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
type
aide=class(TForm)
font:Tpanel;
text:TMemo;
Ok:TButton; 
end;
 
procedure TForm1.Aide1Click(Sender: TObject);
var msg:aide;
begin
msg:=aide.CreateNew(self,0);
msg.Show;
end;

Sachant qu'il me reste évidemment à paramétrer les éléments

Merci beaucoup

[Pedro]

Je ne sais pas trop si c'est exactement ce que vous m'avez dis mais j'ai fait

Code :

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

1
2
3
4
5
6
7
 
type
aide=class(TForm)
font:Tpanel;
text:TMemo;
Ok:TButton; 
end;

OK par contre pour la suite:

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.Aide1Click(Sender: TObject);
var msg:aide;
begin
msg:=aide.Create(self);//Pas CreateNew
msg.Show;
end;

Note: pour un comportement vraiment identique à un MessageDlg, utilise ShowModal en lieu et place de Show

Sachant qu'il me reste évidemment à paramétrer les éléments

Sans oublier de détruire msg une fois le traitement terminé

[Bouguennec]

Je rentre des paramètres (peut être faut-il tous les définir)
et j'ai le message "ressource aide non trouvée" quand je clique sur aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Aide1Click(Sender: TObject);
var msg:aide;
begin
msg:=aide.Create(self);
msg.Caption:='Informations';
msg.font.Height:=561;
...
msg.AutoSize:=true;
msg.ShowModal;
msg.Destroy;
end;

Je rappel

Code :

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

1
2
3
4
5
6
type
aide=class(TForm)
font:Tpanel;
text:TMemo;
Ok:TButton;
end;

[Pedro]

Salut
Déjà une classe qui s'appelle Aide n'est pas très Delphi-Friendly A la limite, une TAideForm... Ensuite, il suffit que tu rajoutes l'unité dans laquelle se trouve Aide dans la clause uses...

[Bouguennec]

Merci beaucoup.
Ca fonctionne comme ça