Discussion :

[jojo86]

Bonsoir à tous,

Voila je suis bloqué...

En faite, je voulais créer une application avec un bandeau en haut, et en dessous, l'affichage des différentes Form... Regarder la photo ci dessous vous comprendrez mieux :

http://georges86.free.fr/Prog/zone.jpg

J'ai voulu faire un test avec des Cadres Les soucis, c'est que ça représente beaucoup de contraintes, car je ne peut pas Utiliser de Datamodule, et je ne peux pas Communiquer entre les différents cadre comme je le ferais avec les Forms, par exemple si je suis sur mon Form1 et que je veux Toucher un composant du Form2, je peux faire :

Code :

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

1
2
 
Form2.Edit1.text:='salut tout le monde !';

Cette methode ne fonctionne pas avec les cadres... donc je voulais savoir comment faire pour que Mes Forms Apparaisse dans la zone prévu à cette effet de ma FormPrimaire...

Merci de votre aide !

[Kaféine]

Salut,

Cette methode ne fonctionne pas avec les cadres...

sisi...

idéalement, une form ou frame de base et toutes nouvelles forms dérivant de celle-ci. un panel pour supporter les forms dans la fiche principale et on les collent dedans même si on pourrait les coller directement sur la fiche principale.

une form de base avec les init communes à toutes les forms
exemple:

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
 
 
TfrmBase = class(TForm)
public
   constructor Create(AOwner: TComponent); override;
end;
 
(...)
 
constructor TfrmBase.Create(AOwner: TComponent); 
begin
  inherited Create(AOwner);
  BorderStyle := bsNone;
  Align := alClient;
end;

une form dérivée:

Code :

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

1
2
3
4
 
 
TfrmTest = class(TfrmBase)
end;

on crée et colle la form sur le panel de la fiche principale lors d'un clique sur une bouton par exemple:

Code :

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

1
2
3
4
5
6
7
 
procedure TfrmPrincipale .Button1Click(Sender: TObject);
begin
  frmTest := TfrmTest.Create(nil);
  frmTest .Parent := pnlContainer;
  frmTest .Show;
end;

l'instanciation des fiches peut être effectuer via une procédure accéptant comme paramètre une classe par exemple.
donc on modifie un peu le code de la form principale.
on ajoute une fonction qui créra la fiche, la colleras sur notre panel et nous renvois l'instance fraichement créée.

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
 
TfrmPrincipale = class(TForm)
public
    function CreerFiche(const AFormClass: TFormClass): TCustomForm;
end;
 
(...)
implementation
 
function TfrmPrincipale .CreerFiche(const AFormClass: TFormClass): TCustomForm;
begin
  Result := AFormClass.Create(Self);
  Result.Parent := pnlMain;
  Result.Show;
end;

du coup on appel cette fonction lors du clique sur le bouton:

Code :

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

1
2
3
4
5
 
procedure TfrmPrincipale.Button1Click(Sender: TObject);
begin
   CreerFiche(TfrmBase);
end;

ceci peut également être fait avec des frames...

pour aller plus loin, l'idée serait d'implémenter un manager de form qui s'occuperait de la gestion des fiches (instanciation, destruction, communication) en y intégrant quelques design pattern.

En espérant que c'est clair pour toi.

[jojo86]

Pourrais-tu me faire parvenir un dossier zippé avec un projet contenant ce que tu m'as noté? car j'ai beaucoup de mal à comprendre...

En attendant, je me creuse la tête !

[jojo86]

Bon... Et bien Merci, j'ai réussi à faire fonctionner ton code...

Maintenant j'aimerai que quelqu'un m'éxplique précisément ce qui ce passe dans ce code, car je ne comprend rien du tout...

Voici l'adaptation que j'ai faite du code :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
type
  TForm1 = class(TForm)
  Button1: TButton;
  Panel1: TPanel;
 
procedure Button1Click(Sender: TObject);
 
  private
    { Déclarations privées }
  public
function CreerFiche(const AFormClass: TFormClass): TCustomForm;
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
function TForm1.CreerFiche(const AFormClass: TFormClass): TCustomForm;
begin
  Result := AFormClass.Create(Self);
  Result.Parent := Pannel1;
  Result.Show;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  CreerFiche(TForm2);
end;

Bien sur, sur mon Form2, j'ai ajouté ce code

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
 
 public
constructor Create(AOwner: TComponent); override;
  end;
 
var
  Form2: TForm2;
 
implementation
 
constructor TForm2.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  BorderStyle := bsSingle;
  Align := alClient;
end;

Pourquoi faire appartenir la Form2 à un Pannel, car j'ai essayé en le mettant sur mon Form1, et ça fonctionne aussi...

Au passage, si vous pouviez m'en dire plus sur le TComponent

Merci de votre aide !! Et un grand merci à Kaféine !

[Tardiff Jean-François]

Bonjour,

L'avantage d'utiliser une panel, tient dans le faite que vous maitriser l'emplacement de votre forme. C'est celle du panel.

Du coup, vous pouvez l'agrandir, la diminuer, la déplacer, la cahcer la montrer en
Agrandissant, diminuant (etc.) le panel. Vos fonction de contreole n'on pas a connaitre la forme, uniquement le panel.

Nota:
A condition que la forme soit bien Aligne en Alclient (prend toute la pplace disponible dans son parent), comme dans votre exemple.


Pour reprendre l'aide delphi (Delphi7 en français parce que je préfère ne pas qualifier l'aide de delphi2007) :

TComponent est l'ancêtre commun àtoutes les classes composant.

En gros, tous ce que vous VOYER à l'écran descend de TComponent.

[kumo]

Juste pour pévenir, tu devrais je pense mettre juste le lien brute vers ta copie d'ecran et pas la mettre comme ça, car pour ceux qui ont une connection super lente, ça va mettre du temps pour charger

Merci

[ShaiLeTroll]

Il y a un complet d'info ICI, concernant l'Alignement, cela peut aussi te servir... l'ancrage est un sujet qui revient tout le temps ...

Pour reprendre l'aide delphi (Delphi7 en français parce que je préfère ne pas qualifier l'aide de delphi2007) :

TComponent est l'ancêtre commun àtoutes les classes composant.

En gros, tous ce que vous VOYEZ à l'écran descend de TComponent.

Euh, les TComponents regroupent les composants Visuel et non Visuel, c'est à partir du TControl que l'on a la notion de visibilité, qui est exploité ensuite par les WinControl\WidgetControl ou GraphicControl

Le TComponent introduit la gestion des Flux (lecture\écriture les fichiers DFM à partir des propriétés) à partir des RTTI activés pour tous les Descendants des TPersistent ...

le TComponent ajoute aussi la notion de possession d'un objet par un autre (voir Owner et ComponentList), c'est pour faciliter la gestion des libérations

le TControl ajoute la notion de parenté d'un objet dans un autre, (voir Parent et ControlList), c'est pour organiser de façon logique et visuelle l'imbrication\ancrage des controles entre eux ...

[jojo86]

Aie...

J'arrive bien à ouvrire mes forms dans ma form principal, le souci, c'est que je ne peut pas utiliser les forms de façon normal...

Pour que je puisse écrire dans un champ text, il faut que je fasse un clique droit...

Par contre pour un ComboBox, un clique gauche fonctionne...

Pourquoi ma form ne fonctionne pas correctement???

Merci d'avance de votre aide.

[ShaiLeTroll]

BorderStyle, il faut le changer à bsNone ... tu n'as pas lu le sujet que j'avais mis en lien ...

[jojo86]

BorderStyle, il faut le changer à bsNone ... tu n'as pas lu le sujet que j'avais mis en lien ...

Si, j'ai lu le sujet que tu m'as filé, et en BorderStyle = BsNone, ça fonctionne, mais justement, j'aimerais avoir les bords sur ma fenêtre... Et donc en utilisant un BorderStyle = BsSingle ou quelque chose comme ça.

Le souci, c'est que si je fais ça, je ne peut plus utiliser mes TEdit etc...

Merci de ton aide !

[jojo86]

Je n'ais toujours pas trouvé la solution, si quelqu'un pouvait me dépanner... Merci !

[ShaiLeTroll]

Tu as une astuce à la con, tu mets ta forme avec tes Edit en BorderStyle BsNone, et tu mets dans un panel celle-ci, une troisième forme en BorderSyle = bsSingle, juste de la taille de la bordure Window (ClientHeigth = 0), et tu as ton effet

Sinon, etudie le code et le comportement de focus d'une fenêtre en bsNone et bsSingle, il y a surement une raison pourquoi le focus est très étrange en fonction du bord, j'ai eu aussi ce soucis avec Win98 ...

Sinon, voir les composants TMSPanel ...

[Pascal Jankowski]

Bonjour,

Le problème se situe dans la procédure TForm1.CreerFiche avec l'affectation.

Code :

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

1
2
 
  Result.Parent := Pannel1;

Il faut tout simplement utiliser dans ce cas l'API setparent de windows de la façon suivante

Code :

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

1
2
3
4
5
6
7
function TForm1.CreerFiche(const AFormClass: TFormClass): TCustomForm;
begin
  Result := AFormClass.Create(Self);
  windows.SetParent(Result.Handle, Form1.Handle);
  Result.Show;
end;

Cordialement

[Paul TOTH]

... je ne peux pas Communiquer entre les différents cadre comme je le ferais avec les Forms, par exemple si je suis sur mon Form1 et que je veux Toucher un composant du Form2, je peux faire :

Code :

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

1
2
 
Form2.Edit1.text:='salut tout le monde !';

Cette methode ne fonctionne pas avec les cadres...

ben je vois pas où est ton problème

quand tu fais Form2.Edit1 tu pointes sur une instance en particulier de TForm2...Ce n'est pas plus juste que de faire un Form1.Frame1.Edit1 qui pointe sur une instante en particulier de TFrame1

[ShaiLeTroll]

Windows.SetParent

Effectivement, je l'avais déjà utilisé pour faire des fenêtres déplaçables (genre graphe UML) et surtout focusables (moins contraignant qu'un MDI) ... ou pour choper un SysTreeView32 de Explorer et le mettre dans mon appli ...

mais attention, cela ne gère plus Align, ni le correctement les Anchors ...

[jojo86]

ben je vois pas où est ton problème

quand tu fais Form2.Edit1 tu pointes sur une instance en particulier de TForm2...Ce n'est pas plus juste que de faire un Form1.Frame1.Edit1 qui pointe sur une instante en particulier de TFrame1

Ce problème est corrigé...

function TForm1.CreerFiche(const AFormClass: TFormClass): TCustomForm;
begin
Result := AFormClass.Create(Self);
windows.SetParent(Result.Handle, Form1.Handle);
Result.Show;
end;

Ok, ça fonctionne... Par contre, sur mon form1 j'ai un Panel en haut et je voudrais que ma form apparaisse en dessous du Panel... une Idée?

[jojo86]

C'est bon je viens de trouver !!!

Ah là là a force de "Bidouiller" on finit par trouver !!!

Voici ce que j'ai fais, j'ai toujours laissé mon Panel2 qui servira à defini la taille de la form

Code :

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

1
2
 
windows.SetParent(Result.Handle, Form1.Panel2.Handle);

Pour Info, Handle correspond à quoi concrètement??? à la taille de l'object?

Merci à vous !

[Cl@udius]

Pour Info, Handle correspond à quoi concrètement??? à la taille de l'object?

Une petit réponse dans la !

@+

[jojo86]

Merci !!

Hélàs, j'ai du mal avec la fonction... car j'ai l'impression que ma fiche n'est pas déclarée dans la liste des Forms...

Avant que Pascal Jankowski me donne sa fonction, voici ce que je faisait :

Code :

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

1
2
3
4
 
Application.CreateForm(TAppArrive, AppArrive);
windows.SetParent(AppArrive.Handle, Form1.Panel2.Handle);
AppArrive.Show;

Je rentrais directement le nom de ma form sur chaque bouton... Vu que j'ai plusieurs bouton, j'avais pas envi de faire ça pour tout les boutons, j'ai donc voulu utiliser la fonction comme ceci :

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
 
function TForm1.CreerFiche(const AFormClass: TFormClass): TCustomForm;
begin
Result := AFormClass.Create(Self);
windows.SetParent(Result.Handle, Form1.Panel2.Handle);
Result.Show;
end;
 
{puis Appel de la fonction pour afficher le form}
procedure TForm1.Button1Click(Sender: TObject);
begin
CreerFiche(TAppArrive);
AppArrive.Edit1.Text:='test'; // Bug sur cette ligne
AppArrive.BtnSuivant.Enabled:=false;// Et sur toutes les autres qui font apl à la form
...
end;

Juste après l'appel de la fonction, je viens Initialiser des valeurs, etc... Avec l'utilisation de la fonction, je ne parviens pas à atteindre mes objets...

Si vous pouviez m'aider

Merci !

[ShaiLeTroll]

Code :

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

AppArrive := CreerFiche(TAppArrive);