aktives Visble eines Label zur Designzeit

[Helmi]

Hallo,

ich habe mir Edits gebastelt, die wie ein TLabeledEdit ein Label besitzen. Nur meine Edits haben zwei Labels (Pre und Post)
und die Labels könnten über zwei Properties des Edits sichtbar/unsichtbar gemacht werden.

Soweit so gut, zur Laufzeit funktioniert alles wunderbar.

Nur während der Designzeit funktoniert das Visible der Labels nicht (wie auch bei einem normalen Label).

Wie könnt ich zur Designzeit trotzdem das Label verschwinden lassen?
was ich beim debuggen der VCL rausgefunden habe, wird das Verstecken des Labels zur Designzeit verhindert, nur wie könnte
man das umgehen?

[Darlo]

Gibt es in XE2 die Eigenschaft DesignVisible?

[Helmi]

Zitat von Darlo:

Gibt es in XE2 die Eigenschaft DesignVisible?

nein

[Medium]

Wenn du das eh schon in eine eigene Komponente gekapselt hast, würde ich TLabel ganz raus werfen. Einfach per TextOut() auf den Parent-Canvas und fertig ist die Laube, bei ausgeschalteter Beschriftung einfach nicht TextOuten.

Wenn es um die Strukturierung der Properties geht, ließe sich im Zweifel ja auch recht einfach eine eigene kleine Label-Klasse bauen. So wahnsinnig viel brint TLabel ja nicht mit, und viel mehr als Positionierung, Font, Alignment und Caption braucht man meistens eh nicht. Das ist fix selbst gestrickt.

[stahli]

Wenn Du bei Deiner Lösung mit den Labels bleiben willst könntest Du im DesignMode deren Parents evtl. einfach auf nil setzen.

[himitsu]

Man kann natürlich das TLabel auch ableiten, ihm ein DesinVisible-Property verpassen und die stellen in TLabel.Paint entsprechend anpassen.

[stahli]

... ich wäre dann aber nicht sicher, ob die IDE dann nicht noch irgendwelche Maus-/Tastaturereignisse zuordnet (selbst wenn nichts sichtbares gemalt wird) ...

[Helmi]

ich werd´s mal mit parent = nil probieren - muss mir nur zuvor den alten parent merken

[Whookie]

...oder du erzeugst bzw. zerstörst die TLabels in der entsprechenden SetVisible-Methode ...

[Helmi]

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