Komponenten Propertys

[himitsu]

Zitat:

Entwickle lieber ein eigenes Steuerelement

Wobei, wenn dort eine Subkomponente zur DesignTime schon unsichtbar werden soll, man schonmal Parent:=nil setzen muß, anstatt Visible=False, da Visible im Designer oft irgnoriert wird, weil man Komponenten dort dann nicht mehr sehen/anklicken kann.

z.B.:

Delphi-Quellcode:

property MyVisible: Boolean read GetVisible write SetMyVisible;

procedure TIrgendwas.SetMyVisible(Value: Boolean);
begin
  FMySubComponent.Visible := Value;
  if csDesigning in ComponentState then
    FMySubComponent.Parent := Self
  else
    FMySubComponent.Parent := nil;
end;

function TIrgendwas.GetMyVisible: Boolean;
begin
  Result := FMySubComponent.Visible;
end;