Discussion :

[PhD13]

Bonjour
Un probléme que je n'arrive pas à solutionner . Comme dit dans le titre au deuxieme chargement d'un form (childMDI ) , j'ai une erreur lorsque je recharge les positions de cette feuille (cf 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
 
procedure LoadPosSize(Form : TForm);
// Permet de charger la dimension et la position d'une fiche
var
  slTmp : TStringList;
begin
  try
    slTmp := TStringList.Create;
    ExtractStrings([';'],[],Pchar(XMLToData(FMain.UserInfo.Name,Form.Name,'')),slTmp);
    if slTmp.Count > 0 then
    begin
      Form.Top := StrToInt(slTmp[0]);
      Form.Left := StrToInt(slTmp[1]);
      Form.Height := StrToInt(slTmp[2]);
      Form.Width := StrToInt(slTmp[3]);
    end
    else
      Form.Height := Form.Height + 1;
    slTmp.Free;
  except
    on E: exception do
    begin
      hLog.AddException(E,'LoadPosSize',[Form]);
    end;
  end;
end;

Les valeurs dans les variables SlTemp sont cohérentes .
De plus , apres avoir acquiitter les messages , la forme s'affiche normalement et à la position sauvegardée .

La forme est fermé par un Action := CaFree dans le formClose .

Quelqu'un aurait il une idée ?
Merci d'avance .

[dd_garion]

C'est normal, caFree détruit la fenêtre quand tu la ferme...

Tu dois la recréer avec application.createform...

A+

[PhD13]

Non
Je fais bien le formclass.Create ( la preuve en étant que la fonction exposée au dessus est appelé dans le form.create )