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