Discussion :

[Invité]

Bonjour,
dans une méthode d'une TStringGrid, je crée un TMemo. La propriété "Visible" du TMemo par défaut a pour valeur True. Elle doit le rester car j'effectue des mesures de tailles sur celui-ci. Or si TMemo est invisible, les mesures sont impossibles.

Mon premier code a été celui-ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.SG1HeaderSized(Sender: TObject; IsColumn: Boolean; Index: Integer); 
var
  aMemo : TMemo;
begin
  aMemo := TMemo.Create(nil);  {ou aMemo := TMemo.Create(Sender as TStringGrid);}
  aMemo.Parent := Sender as TStringGrid ; 
  SG1.BeginUpdate;
  [...]
  SG1.EndUpdate(True);
  aMemo.Free;
end;

Après la modification de la taille d'une colonne de la TstringGrid, le code est effectué. Pendant une fraction de seconde, je vois le TMemo en avant plan au dessus de la TStringGrid. Cela produit un effet désagréable.

Mon premier réflexe a été de "déplacer" l'effet :

Code :

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

 aMemo.Left := SG1.Width +1;

Bof....

J'ai réglé le problème autrement pour l'instant :

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
procedure TForm1.SG1HeaderSized(Sender: TObject; IsColumn: Boolean; Index: Integer); 
var
  aMemo   : TMemo;
  aWctrl  :  TWinControl;
begin
  aWctrl := TWinControl.Create(Sender as TStringGrid);
  aWctrl.Parent := Sender as TStringGrid;
  aMemo := TMemo.Create(aWctrl );
  aMemo.Parent := aWctrl;
  SG1.BeginUpdate;
  [...]
  SG1.EndUpdate(True);
  aMemo.Free;
  aWctrl.Free;
end;

Ce dernier code fonctionne comme attendu : le TMemo a bien sa propriété par défaut Visible := True; et il est invisible lors de son fonctionnement.

Je me demandais si la première approche pouvait être corrigée sans l'utlilisation d'un TWinControl comme dans la deuxième.
Cordialement. Gilles

[tourlourou]

quid de le mettre sous la grille ?
Parent = Parent de la grille et ajustement de sa position le plaçant sous la grille

[Invité]

Bonjour,

Oui mais comme c'est dans un composant, il faut "porter" le aowner jusqu'à la procédure... Sur le principe, cela équivaut à utiliser le TWinControl. Soit on "sort" du composant, soit on y intègre un autre composant pour pouvoir utiliser proprement finalement le TMemo. Sur le principe la question m'intéresse toujours, mais j'abandonne cette piste sans suite sous Linux.

Bon WE. Cordialement. Gilles