Discussion :

[MaTHieU_]

Bonjour,

J'ai le code suivant dans ma form :

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TFPhoto.FormCreate(Sender: TObject);
begin
     Image1.AutoSize := true;
     Image1.Top := 0;
     Image1.Left := 0;
     FPhoto.Height := Image1.Height;
     FPhoto.Width := Image1.Width;
end;

J'ai cependant un access violation au passage sur le redimentionnement de la fenêtre.

J'ai essayé de mettre mon code dans le OnFormShow mais j'ai le même problème :

Code :

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

1
2
3
 
     FPhoto.Height := Image1.Height;
     FPhoto.Width := Image1.Width;

Comment dois-je faire ?

Meilleurs Voeux,
MaTHieU_

[JustMe]

Ton FPhoto est elle créée???
A mon avis non je pense que tu veux manipuler un objet quii n'est pas crée.

[MaTHieU_]

Bonjour,

Si la fenêtre est créée puisque le code qui est exécuté se trouve dans le OnCreate. Le problème est le même si je met ce code dans le OnShow.

MaTHieU_

[JustMe]

Ah pardon j'ai mal lu toon message car on commencee par F les membres privés d'une classe qu'on veux mettre comme propriété. désolé.
La Forme a une propriété Autosize non?

[MaTHieU_]

Bonjour,

Oui, en effet, je viens de tester par contre, la fenêtre n'est plus centrée...

J'ai donc fait le redimentionnement manuellement avant d'afficher la fenêtre :

Code :

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

1
2
3
4
5
6
 
          MaPhoto := TFPhoto.Create(nil);
          MaPhoto.Height := MaPhoto.Image1.Height;
          MaPhoto.Width := MaPhoto.Image1.Width;
          MaPhoto.ShowModal;
          MaPhoto.Free;

Merci,
MaTHieU_