pb drag & dropRésolu

Question

Bonjour  j'aimerais savoir comment r&#233;cup&#233;rer le parent  d'un composant cr&#233;&#233; dynamiquement je m'explique :

 g un TTabControl sur ma fiche je peu cr&#233;&#233; dynamiquement des TTabsheet qui contiennent un TPanel .

 dans ces Panels on peu glisser/deposer un Timage or, quand je
cr&#233;&#233; dynamiquement mon Panel  lui  meme dans un Tabsheet cr&#233;&#233;
dynamiquement,  dans la m&#233;thode DragDrop  de mon Panel
comment acc&#233;der au parent de celui-ci?
 

le code est du style :

procedure TForm1.PanelDragDrop(Sender, Source: TObject; X, Y: Integer);

begin

parent := PageControl1.ActivePage;//ici  le TTabsheet Actif mais comment  lui indiquer que c'est le TPanel son parent et non le TTabsheet?

Left := X-(width div 2) ; Top := Y-(Height div 2);

// pour que le Timage suive la souris (le centre du TImage)

end;


Temple0fb00m

templeofboom · Accepted Answer

la r&#233;ponse etai en fait pour le parent :



Parent:= Sender as TPanel;



merci qd mm ciao

Temple0fb00m

WhiteHippo · Answer

A froid comme &#231;a, si j'ai bien tout compris  et sans beaucoup de refl&#233;xion, j'aurais tendance &#224; dire :

parent := TPanel(TTabSheet(PageControl1.ActivePage).Parent) ;

Cordialement.

templeofboom · Answer

merci whitehippo mais le Timage d&#233;plac&#233; ne s'affiche tjs po dans mon
TPanel, celui-ci est redimensionn&#233; a chaque glisser/d&#233;poser :

est-ce normal?

Temple0fb00m

Pb drag & drop

3 réponses

Votre réponse

Discussions similaires