Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.323 Beiträge
 
Delphi XE2 Professional
 
#10

AW: aktives Visble eines Label zur Designzeit

  Alt 8. Aug 2014, 19:58
ich hab´s jetzt so gelöst:

Delphi-Quellcode:
procedure TLabeledMaskEdit.SetVisiblePreLabel(Value: Boolean);
begin
  //Wird aufgerufen, wenn sich die Variable "FVisiblePreLabel" ändert
  FVisiblePreLabel := Value;

  //FPreEditLabel beschreiben
  FPreEditLabel.Visible := FVisiblePreLabel;

  If csDesigning in ComponentState then
    If FVisiblePreLabel then
      FPreEditLabel.Parent := FLabel_Parent
    else
      FPreEditLabel.Parent := nil;
end;
Ich merk mir in der SetParent-Procedure den Parent und bei Visible wird der Parent gesetzt, ansonsten Nil
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat