Änderung der Eigenschaft "Visible" hat keine Auswirkung

[Whistler]

Hallo,

ein komisches Problem:
Ich habe einen Button "Button1". Wenn man darauf klickt, soll die Eigenschaft "Visible" der Komponente "Label1" auf "false" geändert werden. Entsprechend der Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Visible := false;
end;

Funktioniert auch.

Aber exakt dieser Code hat in einem anderen Projekt absolut keine Auswirkungen. Hier ist das "Label" auf ein "PageControl"-Element gesetzt, welches selbst auf einem Panel sitzt. Tests haben aber gezeigt, dass dies egal - ich kann (wüsste auch keinen Grund wieso nicht) jedes Element (immer) ansteuern.

Ich habe selbst eine If-Abfrage geschaltet, die mir eine Meldung ausgeben soll. Hier wird korrekt angezeigt, dass das Label "Visible = false" als Wert hat. Aber es wird immer noch angezeigt?!

[MarcusB]

Hi,

bei einem PageControl-Element muss Du auch die aktive Seite auswählen, z.B.:

Delphi-Quellcode:

PageControl1.ActivePageIndex := 1;

Das sollte funzen

:hi:

[Whistler]

Zitat:

Zitat von MarcusB

Hi,

bei einem PageControl-Element muss Du auch die aktive Seite auswählen, z.B.:

Delphi-Quellcode:

PageControl1.ActivePageIndex := 1;

Das sollte funzen

:hi:

...das PC-Element ist aktiv.

[mikhal]

Du mußt wohl dem PageControl mitteilen, daß es da was neuzeichnen soll. Schau dir mal die Methode Invalidate an.

Grüße
mikhal

[MarcusB]

Uuups, da habe ich was überlesen.

Habe aber deinen Fall mal nachgebaut, quasi PageControl mit einem Panel, darauf ein Label.
Hat aber funktioniert. Das Label ist bei visible:=false weg :gruebel:

[Whistler]

Ja... ich sag ja auch:
In einer Test-App (also einfach neue "EXE", Panel drauf und PC sowie eine "Seite" und Label und ein Button), geht.

Ich frage mich daher, wieso geht's in der anderen Anwendung nicht.

[Whistler]

Ich verstehe es nicht...

'Ne Frage: Wenn folgender Code zusätzlich ausgeführt wird in der Prozedur, kann dass das Ausführen von "visible := false" verhindern?

Delphi-Quellcode:

procedure TMain.pd_MainRund;
begin
    Label2.Visible := false;
    lbl_pDialog2_S5_Hinweis.Visible := false;

      bt_pNavigation_Start.Enabled := false;

while ProgressBar2.Position <100 do
    begin
      Progressbar2.Position := ProgressBar2.Position + 25;
      Sleep(1000);
    end;
    pd_fertig; 
end;

Hintergrund ist der:
User klickt auf Button "Start". Hier wird nur zur Prozedur "pd_MainRund" gesprungen. Hier soll er dann den Hinweis, dass er auf Start drücken soll, ausblenden... und den Vorgang starten. Da es noch kein Vorgang gibt, simuliere ich Mittels "while" das Füllen des Progress-Balkens...
Wenn ich die While-Schleife herausnehme - geht's.

[SirThornberry]

dadurch das danach noch anweisungen kommen wird noch kein repaint ausgelöst. du müsstest dann in dem Fall hinter dein

Delphi-Quellcode:

Label2.visible := false;

ein

Delphi-Quellcode:

Application.ProcessMessages;

einfügen oder einfach ein

Delphi-Quellcode:

Label2.Repaint;

übrigens kannst du auch

Delphi-Quellcode:

Label2.Hide;

nehmen

[Whistler]

Zitat:

dadurch das danach noch anweisungen kommen wird noch kein repaint ausgelöst.

Könntest du das ausführen? Denn eigentlich geht er doch Schritt für Schritt alles ab und nicht erst alles durch...

BTW: "Application.ProcessMessages;" hat geholfen...

[dizzy]

Zitat:

Zitat von Whissi

Zitat:

dadurch das danach noch anweisungen kommen wird noch kein repaint ausgelöst.

Könntest du das ausführen? Denn eigentlich geht er doch Schritt für Schritt alles ab und nicht erst alles durch...

BTW: "Application.ProcessMessages;" hat geholfen...

Das Problem ist ja gerade, dass alles Schritt für Schritt durchgegangen wird ;). Ein Setzen von Visible:=false ist ja zunächst mal nur eine Änderung einer Variablen. Damit aber eine sichtbare Veränderung eintritt muss zusätzlich noch neugezeichnet werden, und das muss explizit veranlasst werden, da die Zuweisung an die Visible-Eigenschaft dies nicht für dich mit erledigt.
Für gewöhnlich wird ein Control immer neugezeichnet, wenn es selbst, oder eines der Unter-Controls geändert wird - aber das passiert per Message an das entsprechende Control. So lange wie in deinem Programm aber noch etwas passiert, werden keine weiteren Messages verarbeitet, und kommen in eine Warteschlange. Der Aufruf von Application.ProcessMessages veranlasst dein Programm die anstehende Warteschlange abzuarbeiten, und dann erst weiterzumachen.
In diesem Fall werden allerdings alle anstehenden Messages versorgt, also auch Mausclicks, Tastatureingaben etc.pp. Wenn du nur neuzeichnen willst, dann ist (auch schneller) TControl.Repaint bzw. .Refresh dein Kandidat. Dabei wird explizit ein erneutes Zeichnen veranlasst, ohne dass sich um die Message-Queue gekümmert wird.

gruss,
dizzy

[Whistler]

Vielen Dank für die Ausführung.
Nun wird mir so einiges klar :)

[sakura]

Zitat:

Zitat von dizzy

Ein Setzen von Visible:=false ist ja zunächst mal nur eine Änderung einer Variablen. Damit aber eine sichtbare Veränderung eintritt muss zusätzlich noch neugezeichnet werden, und das muss explizit veranlasst werden, da die Zuweisung an die Visible-Eigenschaft dies nicht für dich mit erledigt.

Stop! Das ist so nicht richtig. Wenn die Eigenschaft Visible einer Control gesetzt wird, so wird intern die Methode SetVisible aufgerufen.

Delphi-Quellcode:

procedure TControl.SetVisible(Value: Boolean);
begin
  if FVisible <> Value then
  begin
    VisibleChanging;
    FVisible := Value;
    Perform(CM_VISIBLECHANGED, Ord(Value), 0);
    RequestAlign;
  end;
end;

Diese sendet die Nachricht CM_VISIBLECHANGED (Zeile 7) an sich selbst, welche später durch die Methode CMVisibleChanged abgearbeitet wird.

Delphi-Quellcode:

procedure TControl.CMVisibleChanged(var Message: TMessage);
begin
  if not (csDesigning in ComponentState) or
    (csNoDesignVisible in ControlStyle) then
    InvalidateControl(True, FVisible and (csOpaque in ControlStyle));
end;

Damit zeichnet sich die Control sofort neu (oder halt versteckt sich und sagt den anderen sich neu zu zeichnen).

...:cat:...

[Whistler]

Angenommen du hast Recht, dann wäre es ein Widerspruch zu der Meinung deines Vorredners. Aber wenn du Recht hast, dann folgendes:

Zitat:

Damit zeichnet sich die Control sofort neu (oder halt versteckt sich und sagt den anderen sich neu zu zeichnen)

Denke es sagt "Bitte das PC-Element neu zeichnen", aber der Befehl wird in der Schlange eingereiht... denn nehme ich ja den Sprung zur nächsten Prozedur, die gleichzeitig ein anderes Panel sichtbar macht, raus, so sehe ich das nachdem der Balken gefüllt wurde, die Label-Elemente wie gewünscht verschwinden...

-> Also kein Widerspruch.

[dizzy]

Hast ja Recht :wall:

Aber halt via Message, und damit dann was passiert, muss die Messagequeue abgearbeitet werden. Soweit stimmte meins noch ;)