Propriétés de TControl non accessibleRésolu

Question

Bonjour &#224; tous.
Pourquoi ne peut-on pas &#233;crire par exemple:
      procedure TForm1.Button1Click(Sender: TObject);
         var i : Integer;
      begin
           for i :=  0 to Panel1.ControlCount-1 do
           Panel1.Controls[i]. DragMode  : = dmAutomatic;
      end;
En effet, je ne peux pas changer les propri&#233;t&#233;s DragMode des controls.
Alors que je pourrais faire, par exemple:
         Panel1.Controls[i].Enabled := false;
Ca, &#231;a passe...
Je ne comprends pas la diff&#233;rence...
Si quelqu'un peut avoir la gentillesse de m'expliquer, merci.   :)

cs_Kenavo · Accepted Answer

Salut,



D'apr&#232;s l'aide, la propri&#233;t&#233; DragMode de TControl est prot&#233;g&#233;e, alors
qu'elle est publi&#233;e pour certains de ses descendants (contrairement &#224;
enabled qui est plublic d&#232;s "l'origine"). Ca doit expliquer tes probl&#232;mes.



Ken@vo

____________________

Code, Code, Codec !

Niki2001 · Answer

Je pense qu'un transtypage dans une classe descendante o&#249; "DragMode" est public voire published pouurait arranger les choses.
A la limite, m&#234;me si c'est pas tr&#232;s r&#233;glo tu pourrais creer un type du genre:

type
  TMonControl=  class(TControl)
  public
     property DragMode;
  end;

et faire le transtypage:

TMonControl(Panel1.Controls[i]). DragMode  : = dmAutomatic;

Sur ce...

Propriétés de TControl non accessible

2 réponses

Votre réponse

Discussions similaires