Inhalt einer Form bei Aufruf "SW_SHOWNOACTIVATE" nicht sichtbar

[Helmi]

Hallo,

mittels folgendem Code versuche ich eine Form anzeigen zu lassen, ohne das sie den Fokus erhält
(Code aus dem Forum).

Delphi-Quellcode:

If sichtbar then
  ShowWindow(Handle, SW_SHOWNOACTIVATE)
else
  ShowWindow(Handle, SW_HIDE);

Es funktioniert auch soweit. Also soweit dass die Form ohne Fokus angezeigt wird.
Leider seh ich nur ein weisses Feld in der Größe der Form, dummerweise aber total leer.
Auf dem Bild sieht man es.

Ich sollte noch erwähnen, dass folgende Eigenschaft gesetzt ist: BorderStyle = bsNone .

Mach ich aber Show seh ich alles auf der Form. Nur hat die Form damit auch den Fokus, was ich aber nicht möchte.

Was ist da faul? - Bzw. wie bekomme ich es hin, dass die Form keinen Fokus hat, dafür aber alles sichtbar ist?

[himitsu]

Passiert was, wenn du ein Perform(CM_VISIBLECHANGED, Ord(sichtbar), 0); hinterherschickst?

Ist Visible danach True?

[Helmi]

Zitat von himitsu:

Passiert was, wenn du ein Perform(CM_VISIBLECHANGED, Ord(sichtbar), 0); hinterherschickst?

Leider nein! - Es bleibt wie bisher: leer!

[Luckie]

Und wenn du da nach das Fenster neu zeichnen lässt?

[Helmi]

Zitat von Luckie:

Und wenn du da nach das Fenster neu zeichnen lässt?

Ich habs mit Repaint als auch Refresh probiert - bei beiden das gleiche Phänomen.
Es ändert sich nichts an der Sichtbarkeit der Komponenten auf der Form - sie werden
nicht angezeigt.

[jbg]

Delphi-Quellcode:

ShowWindow(Form3.Handle, SW_SHOWNOACTIVATE);
Form3.Visible := True;

Das sollte helfen. Beim SW_HIDE natürlich Visible := False setzen.

[himitsu]

Delphi-Quellcode:

    ShowWindow(Handle, SW_SHOWNOACTIVATE);
    Visible := True;

?

[edit]
Ups, wo kommt den jbg denn urplötzlich her.
Aber scheinbar sieht es so gut aus.

[Helmi]

Zitat von jbg:

Delphi-Quellcode:

ShowWindow(Form3.Handle, SW_SHOWNOACTIVATE);
Form3.Visible := True;

Das sollte helfen. Beim SW_HIDE natürlich Visible := False setzen.

Danke! - das hat funktioniert.

Habs jetzt so gemacht:

Delphi-Quellcode:

  If sichtbar then
    begin
      ShowWindow(Handle, SW_SHOWNOACTIVATE);
      Visible := true;
      Repaint;
      BringToFront;
    end
  else
    begin
      ShowWindow(Handle, SW_HIDE);
      Visible := false;
    end;

Stimmt die Erklärung, dass mit ShowWindow "an der VCL vorbei" das Fenster angezeigt wird und deswegen die VCL eigentlich gar nicht weiss das das Fenster angezeigt werden soll. Deswegen muss mit Visible das Fenster auch für die VCL sichtbar gemacht werden?!

[Memnarch]

Ich weiß das ich gerade gefahrlaufe Threadnecrophelie zu betreiben, aber da ich gerade vor dem selben Problem stand(was hiermit gelößt wurde) möchte ich noch meine 2Cent zur letzten Frage des Threaderstellers abgeben(falls später nochmals jemand hier drauf googlet):

In diesem speziellen Fall geht das nutzen von ShowWindow sogar soweit, das nichtmal irgendwelche Events von einer Control/Form getriggert werden. Das dürfte bestätigen, das hier an der VCL vorbeigearbeitet wird, da diese dann auch außen vor ist, was Message-Abarbeitung angeht.
Sowas ist also wohl mit Vorsicht zu genießen.


MFG
Memnarch

[Helmi]

weil das Thema sowieso aufgewärmt wurde, muss ich gleich noch ein Problem loswerden:

Bei WinXP (ja, das gibt's noch) seh ich leider den Inhalt der Form nicht
muss man dabei etwas (anderes) beachten?

[Edit]
Kommando zurück - das Problem liegt auf meiner Seite (dumme If-Anweisung wird ned true)