Discussion :

[defiant69]

Bonjour

je suis en Delphi 7

Imaginons une TImgForm héritée d'une TForm (ou TCustomForm pour faire propre) le seul compo de la fiche est un Timage (nommé Pic) avec propriété align.

je définis en published :

Code :

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

property Picture: Tpicture read getImage write SetImage

et les deux accesseurs en protected.

Code :

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

1
2
3
4
function getImage
begin
   result:=Pic.Picture;
end;

et

Code :

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

1
2
3
4
procedure setImage(pict:Tpicture);
begin
  Pic.picture :=pic; //(je sais que ca ne s'attribue pas comme ça mais pour l'exemple)
end;

j'enregistre ma form je l'inclus dans un .dpk et ferme tout.

je relance un nouveau projet et j'inclus ma TImgForm dans les sources du projet puis je crée une nouvelle

ImgForm1 : TimageForm1 par la fonction d'ajout de delphi Nouveau > Autre> projet et je sélectionne ma forme TImgForm pour crée un descendant.

La ou je en sais pas coment faire c'est pour faire apparaitre la propriété Picture dans l'éditeur de propriétés de delphi (histoire de le regler visuellement et non algorithmiquement) (je sais le faire avec un composant genre Tpanel)

Merci d'avance pour toute aide.

[ShaiLeTroll]

Pour un TPanel tu fais RegisterComponent, pour le mettre dans la palette !
Pour une form, si tu passe par "Nouveau > Autre ...", cela ne doit pas faire pareil ! A mon avis, il ne gère par le ComponentEditor de la même façon, car sinon, on aurait toutes les propriétés publiés de la form ancêtre dans l'Inspecteur lorsque l'on hérite ses fenêtres (y compris les Edit, ...) hors, même avec l'héritage, on a que celle publiée dans le TForm ! non ?

Bon, j'avoue, que je n'ai jamais poussé très loin l'héritage de fenêtre, en tout cas, jamais via l'IDE, mais via Code ... surtout pour les DFM partiel lié à l'héritage (inherited dans la dfm au lieu de object), en général, je fais des Form spécifiques sans DFM apportant des comportements standards (Traduction automatique, Positionnement, Chargement de Skin ...) qu'il faut appeler manuellement dans le OnCreate ou alors, tricherie, j'instancie des TComponent non visuel en DesignTime, genre TTraductorDesignEditor, TSkinDesignEditor), et les propriétés comme Picture sont publiées dans ces composants (en fait des coquilles vides qui interface avec les propriétés de la Form) , et lorsque l'on modifie leur propriété cela se répercture sur leur Owner ... ouais bidouille, ... dans mes souvenirs, j'avais des violations d'accès ...

PS:

[defiant69]

Merci pour le switch.

Malheureusement je cherche bien à reproduire le comportement de composants visuels dans l'ide à travers une "fille" de Tform.

Je vais voir si je peux me procurer un delphi + récent pour voir si la même chose survient.

merci encore pour les astuces.