Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  AW: Selektives csAcceptControls möglich?

    Delphi
    by Whookie, 30. Jan 2015
  Die endgültige Version verhindert nun auch das erzeugen der Komponente und sieht wie folgt aus:
  
  
  procedure TMyPanel.CMControlListChanging(var Message: TCMControlListChanging);
  begin
  if Message.ControlListItem^.Control.ClassName = 'TShape' then
  begin
  Message.ControlListItem^.Parent := NIL;
  raise EInvalidOperation.Create(SInvalidChild);
  end;
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  AW: Selektives csAcceptControls möglich?

    Delphi
    by Whookie, 29. Jan 2015
  Einen Teilerfolg gibt es zumindestens, in der Form der CM_CONTROLLISTCHANGING Message
  
  
  procedure TMyPanel.CMControlListChanging(var Message: TCMControlListChanging);
  begin
  if Message.ControlListItem^.Control.ClassName = 'TShape' then
  begin
  Message.ControlListItem^.Parent := NIL;
  iFrm := GetParentForm(Self);
  Message.ControlListItem^.Control.Parent := iFrm;
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Selektives csAcceptControls möglich?

    Delphi
    by Whookie, 28. Jan 2015
  Ich glaube, ich stehe mal wieder auf der Leitung aber irgendwie finde ich keine Lösung für mein Problem:
  
  Ich habe einen TPanel-Nachfolger (TMyPanel) das soll nur ein paar Componenten als Child akzeptieren (TLabel, TCheckBox und ein paar kleinere grafische Komponenten von mir).
  
  Es sollte nicht möglich sein andere Komponenten über den Designer hinzuzufügen und auch wenn man programmatisch...