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:

Zitat von Darlo (Beitrag 1267687)

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

[himitsu]

Die Kommentare sind böse.
Wie war das in dem Kommentar-Thread? Nutzlose nichtssagende Kommentare sind nutzlos, vorallem wenn sie genau das sagen, was man im Code eh sieht.

Und vorallem, wenn diese Methode wirklich bei FVisiblePreLabel aufgerufen wird, dann gibt es eine geile Endlosschleife.


Wer ist FLabel_Parent?
Aber wichtiger: Wer ist der Owner dieser Komponente?


Wie wird das Label editiert?
- wie beim TLabeledEdit, also Subkomponenten-Property
- oder dierekt als eigenstöndige Komponente

[Helmi]

Zitat:

Zitat von himitsu (Beitrag 1268071)

Die Kommentare sind böse.
Wie war das in dem Kommentar-Thread? Nutzlose nichtssagende Kommentare sind nutzlos, vorallem wenn sie genau das sagen, was man im Code eh sieht.

wer sagt, dass man nicht böse sein darf? - welcher Programmierer ist schon ein Engel? :-D
Mag sein, dass der Kommentar nutzlos ist, ich komm ganz gut klar damit

Zitat:

Zitat von himitsu (Beitrag 1268071)

Und vorallem, wenn diese Methode wirklich bei FVisiblePreLabel aufgerufen wird, dann gibt es eine geile Endlosschleife.

weil?

Zitat:

Zitat von himitsu (Beitrag 1268071)

Wer ist FLabel_Parent?

ich darf vorstellen? - eine Variable vom Typ TWinControl
brauch ich, um mir den Parent zu speichern

Zitat:

Zitat von himitsu (Beitrag 1268071)

Wie wird das Label editiert?
- wie beim TLabeledEdit, also Subkomponenten-Property
- oder dierekt als eigenstöndige Komponente

ist ne Subkomponenten-Property, so wie im TLabeledEdit auch