Discussion :

[MiJack]

Bonjour,

Vous avez déjà vu ces composants où l'on voit par exemple un TEdit avec un petit bouton, et le fait de cliquer sur ce bouton ouvre la calculatrice juste en-dessous du bouton, ou idem avec un calendrier afin de choisir une date qui sera écrite dans le TEdit, etc. ?

J'aimerais créer qqch de similaire pour créer un masque (style ###.00#). J'ai déjà une petite form pour créer le masque, mais je ne sais pas comment l'intégrer dans un composant.

Voici une illustration de ce que j'ai actuellement. J'aimerais donc intégrer la form bleue de manière beaucoup plus pro juste en-dessous du bouton lorsqu'on clique sur celui-ci. De même, si on clique en-dehors de la form, ça la refermerait.



Mais mon problème est donc de savoir comment faire ouvrir une fenêtre juste en-dessous du bouton, de quel composant hériter, etc. Donc je suis à la recherche de pistes.

[Bloon]

Soit TForm2, la fenêtre popup que l'on affiche en cliquant sur Button1 dans TForm1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
begin
  with clientToScreen(Point(button1.Left, button1.Top + button1.Height)),
       TForm2.Create(nil) do
  try
    left := X;
    top := Y;
    showModal;
  finally
    Free;
  end;
end;

La propriété BorderStyle de TForm2 doit être à bsNone et il doit y avoir un moyen de sortir de TForm2 puisque l'affichage est modal.

Bloon

[MiJack]

J'étais déjà un peu parti dans cette direction, mais ça pose le problème que l'utilisateur ne peut pas fermer la form en cliquant à l'extérieur de celle-ci.

Le fait de forcer à fermer la form en cliquant sur un "close" est trop contraignant à mon avis.

[Bloon]

Avec une frame alors :

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
  TForm1 = class(TForm)
    ...
  private
    f : TFrame2;
    procedure FrameExit(Sender: TObject);
    ...
  end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  f := TFrame2.Create(self);
  f.Visible := false;
  f.OnExit := FrameExit;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  with f do
  begin
    left := button1.Left;
    top := Button1.Top + button1.Height;
    parent := button1.Parent;
    visible := true;
    memo1.SetFocus;
  end;
end;
 
procedure TForm1.FrameExit(Sender: TObject);
begin
  (sender as TFrame).Visible := false;
end;

Bloon

[sjrd]

Moi je verrais plutôt une form non-modale, avec BorderStyle à bsNone, et le code suivant dans OnDeactivate :

Code :

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

1
2
3
4
procedure TSmallPopupForm.FormDeactivate(Sender : TObject);
begin
  Close;
end;

[MiJack]

J'ai essayé avec la form non-modale, mais ça ne fonctionne pas car j'appelle cette form depuis une autre qui est modale, donc la nouvelle form qui apparaît se masque automatiquement derrière la form principale modale.

Je vais tenter avec les Frames en espérant avoir plus de succès.

[Fabrice ROUXEL 1]

Le plus logique (en terme de réutilisation de code, encapsulation des données et méthodes, maintenabilité) est de dériver un composant existant en lui ajoutant un compo interne de type TPanel ou TForm.

Par exemple il est pratique d'ajouter une petite calculatrice au composant TEdit.

[MiJack]

ça ne fonctionne pas non plus avec les frames, rien n'apparaît (probablement à nouveau à cause du fait que ma form appelante est modale).

Comme le dit le titre de mon sujet, j'aimerais quand même essayer de faire un composant que je puisse utiliser à plusieurs endroits très facilement.

Par exemple il est pratique d'ajouter une petite calculatrice au composant TEdit.

Oui, tu reprends l'exemple de mon premier message, mais j'ai besoin d'un peu plus de concret (c.f. mes questions dans mon premier post) : de quel composant partir ? comment y faire apparaître un panel facilement, etc.

Tu suggères donc un TEdit avec un TPanel ajouté ? A ton avis c'est le mieux pour partir ? Car je dois également ajouter un TButton à côté du TEdit, et là je ne sais pas trop comment faire.

[Bloon]

ça ne fonctionne pas non plus avec les frames, rien n'apparaît (probablement à nouveau à cause du fait que ma form appelante est modale).

Non, ça marche aussi si la fenêtre est modale.

Bloon

[adc]

Vous avez déjà vu ces composants où l'on voit par exemple un TEdit avec un petit bouton
==> comment est créé ce "petit bouton". Plus précisément Comment récupérer l'image de la flèche standard vers le bas ?

[MiJack]

Non, ça marche aussi si la fenêtre est modale.

Bloon

Après plusieurs tests effectivement j'ai pu faire marcher ta proposition même sur une fenêtre modale.
Mais la mise en place se révèle un peu lourde si je dois la répéter sur plusieurs forms. Je vais continuer à tenter de créer un composant pour simplifier tout ça.