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?!