Discussion :

[Magnus]

Bonjour tout le monde,

Dans une forme j'ai placé 2 frames de la manière suivante :

-------------------------------
MENU // Frame
-------------------------------
FILTRES // Frame
-------------------------------
// reste de la Forme
-------------------------------

Le problème que je rencontre est que quand je clique sur un menu qui dépasse la longueur de la 2ème frame alors il est tronqué (comme si la 2ème frame était en arrière-plan par rapport au reste de la forme).

Comment faire ?
Merci d'avance.

[Magnus]

Personne ne sait ?
Je ne m'exprime pas assez clairement ?
Je peux reformuler si c'est le cas...

Au fait, j'ai bien sûr testé en invoquant BringToFront sur la 1ère frame mais ça ne change rien à l'exécution.

[LadyWasky]

Salut,

voici des questions :
C'est bien un TMainMenu ou un TPopupMenu, hein ?

Le menu descent jusqu'où, jusqu'au bas de la 2ème Frame, autrement dit, où est-il tronqué ?

[Magnus]

Salut waskol

C'est bien un TMainMenu ou un TPopupMenu, hein ?

C'est bien un TMainMenu

Le menu descent jusqu'où, jusqu'au bas de la 2ème Frame, autrement dit, où est-il tronqué ?

Le menu s'affiche jusqu'au bas de la seconde frame.

Depuis mon 1er post à ce sujet j'ai testé différents interactons des frames : j'ai essayé de les regrouper dans une seule frame ou alors de les distinguer et d'ajouter la seconde dynamiquement lors de la création de la fiche.

Résultat : à chaque fois l'ajout de la seconde frame dynamiquement masque les éléments du menu qui arrivent à son niveau.

Une idée ?

[LadyWasky]

Tu as quelle version de Delphi ? Parce que moi, avec Delphi7, pas de problèmes : ça dépasse très bien. Si ce n'est que que je dois spécifier pour ma fiche Form1, que le MainMenu est celui qui se trouve dans ma Frame du haut.

[Magnus]

Merci de t'intéresser à mon problème, on se sent moins seul

Tu as quelle version de Delphi ?

D7 Ent

je dois spécifier pour ma fiche Form1, que le MainMenu est celui qui se trouve dans ma Frame du haut.

Ah et comment tu fais ça ?

[edit]
Dans l'événement OnCreate de ma fiche j'ai essayé ça :

Code :

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

Self.FormFrameMenu1 := FormFrameMenu1;

mais ça ne change rien à l'exécution
[/edit]

[LadyWasky]

Pour être concret, voilà comment j'ai procédé :
1) J'ai créé un TFrame (Menu "Fichier-->Nouveau-->Cadre");
2) Ensuite, j'ai glissé dedans un TMainmenu (Je n'ai rentré aucun code pour mon frame : brut de brut). J'ai édité mon menu avec toutes les lettres de mon clavier, une lettre par MenuItem, pour que ça fasse un menu suffisemment long (il est fou... )
3) J'ai demandé à Delphi de me le mettre à Dispo dans ma liste de Cadres de la palette
4) Tout sauvé, tout fermé, crac : nouveau projet
5) Je vais sur mon onglet "Standard", je choisis "Cadres", je sélectionne mon Frame, il apparait sur la fiche, alignement=alTop
6) Pareil un deuxième cadre...
7) je clique sur ma forme, dans l'inspecteur d'objet, il y a la propriété MainMenu (en rouge pour de vrai), j'ai choisi Frame1.MainMenu1, le menu est apparu sur ma fiche de conception

8) Run : ça marche

Et toi, tu as fait comment ?

[Magnus]

J'ai procédé quasiment de la même manière :
1/ j'ai créé 2 frames indépendants l'un de l'autre
2/ j'ai créé une Tforme à laquelle j'ai ajouté l'un après l'autre chacune des 2 frames précédentes ; la 1ère que j'ai ajoutée contient le TMainMenu

La seule différence pour l'instant est que tu n'utilises pas de TForme.
Est-ce que tu pourrais créer une TForme et ajouter tes 2 frames en commençant par celle qui contient le menu, histoire de voir si l'on obtient le même résultat ?

Ce que je ne comprends pas c'est que l'appel à la méthode BringToFront ne change rien du tout (?) :

Code :

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

1
2
3
4
5
6
7
8
procedure TfOffreClient.IWAppFormCreate(Sender: TObject);
begin
 
[...]
 
  Self.BringToFront; // compile mais ne change rien ????
 
end;

Dans la même optique j'ai fait un clic droit sur chacune de ces 2 frames et j'ai sélectionné : 'Options de contrôle', 'Mettre en arrière-plan' / 'avant plan' mais là encore pas de modification à l'exécution.

Tu vois ce qui pourrait expliquer la différence ?

[edit]
Je viens de réaliser une différence qui a peut être toute son importance je ne veux pas aligner la 2ème frame avec alTop ; j'ai donc choisi alNone.
[/edit]

[LadyWasky]

Si, j'utilises une TForm

La différence tiens du fait que c'est mon application qui la crée à ma place dans le .dpr :

Code :

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

Application.CreateForm(TFormMain, FormMain);

Es-tu sur que ta fiche à un Parent, style as-tu écris un machin comme ça ?

Code :

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

1
2
3
 
  Owner:=Application;
  Parent:=Application;

[Magnus]

Je vois pas en quoi le fait que la fiche soit créée par le .dpr change quoi que ce soit mais je rencontre des choses tellement bizarres sur ce projet...

Concernant le fait que ma fiche ait un parent :
1/ aucune modification de cette propriété n'est effectuée dynamiquement et je ne la vois pas dans la liste des propriétés de cet objet TForme
2/ mes fiches sont créées / détruites de cette manière :

Code :

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

1
2
3
4
5
  // Release the current form
  TIWAppForm(WebApplication.ActiveForm).Release;
 
  // Create the next form
  AFormClass.Create(WebApplication).Show;

Je vois éventuellement 2 autres faits qui ont peut être leur importance :
1/ à l'exécution le menu fonctionne non pas par clic mais par réception du curseur de la souris. Ceci dit c'est bien un TMainMenu
2/ je travaille sous IntraWeb et ma TForme est en fait une TIWAppForm

Qu'en penses-tu ?

[LadyWasky]

Je vois pas en quoi le fait que la fiche soit créée par le .dpr change quoi que ce soit mais je rencontre des choses tellement bizarres sur ce projet...

Non, le dpr ne créé rien, c'est l'application qui crée mes fiches.

Concernant le fait que ma fiche ait un parent :
1/ aucune modification de cette propriété n'est effectuée dynamiquement et je ne la vois pas dans la liste des propriétés de cet objet TForme

C'est une propriété public, donc accessible que par le code

2/ mes fiches sont créées / détruites de cette manière :

Code :

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

1
2
3
4
5
  // Release the current form
  TIWAppForm(WebApplication.ActiveForm).Release;
 
  // Create the next form
  AFormClass.Create(WebApplication).Show;

C'est pas très beau comme code, croise les doigts pour que ça marche bien, toujours.

Je vois éventuellement 2 autres faits qui ont peut être leur importance :
1/ à l'exécution le menu fonctionne non pas par clic mais par réception du curseur de la souris. Ceci dit c'est bien un TMainMenu

Je ne pense pas que ce soit la raison

2/ je travaille sous IntraWeb et ma TForme est en fait une TIWAppForm

Qu'en penses-tu ?

Là, je dirais que ça viens de ça... Intraweb.

[Magnus]

Là, je dirais que ça viens de ça... Intraweb.

Tout juste : pour gérer ces troncatures de frames, il faut en fait passer la propriété ClipRegion des TIWRegion qui figure dans chaque frame à False.

Ce paramétrage stipule que les scrollbars ne sont plus visibles et surtout que les limites ne s'arrêtent pas aux bordures de la frame.

Intéressant...

Merci encore waskol de m'avoir mis sur la voie.

[colfire_dev]

Je débute en intraweb, il y a pas beaucoup de Doc la dessus, mais bon, je commence à comprendre petit à petit, j'ai la version 10.0 livrée avec Delphi 2009.
J'ai créé un Frame où j'ai mis un menu, j'ai ensuite inséré ce Frame dans ma Form, j'ai mis cette procédure pour appeler mes forms :

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
private
    procedure Move(AFormClass: TIWAppFormClass);
  public
    { Public declarations }
  end;
 
implementation
 
{$R *.dfm}
 
procedure TframeMenu.Move(AFormClass: TIWAppFormClass);
begin
  // Release the current form
  TIWAppForm(WebApplication.ActiveForm).Release;
  // Create the next form
  AFormClass.Create(WebApplication).Show;
end;

j'ai une erreur à la compilation :

[DCC Erreur] UFrameMenu.pas(41): E2003 Identificateur non déclaré : 'WebApplication'
[DCC Erreur] UFrameMenu.pas(41): E2029 ')' attendu(e) mais identificateur 'ActiveForm' trouvé(e)