Rahmenloses Fenster soll Desktop überblenden

[Christof]

Hallo,

ich habe folgendes Problem:

Ich möchte ein rahmenloses Fenster erzeugen das den Desktop komplett überblendet, allerdings die Taskleiste sollte noch sichtbar sein.

Ich habe es versucht mit Screen.WorkAreaHeight. Allerdings sieht man oben den Desktop so viel, wie die Titelleiste des Forms Platz wäre. Das Form habe ich einfach mit BorderStyle:=none erzeugt.

Mit Screen.Height sehe ich die Taskleiste nicht.

Hat jemand eine Idee?


Gruss

Christof

[Kamil]

Vielleicht so:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin
  if BorderStyle<>bsNone then
  begin
    BorderStyle:=bsNone;
    WindowState:=wsNormal;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderStyle:=bsSizeable;
  WindowState:=wsMaximized;
end;

[Christof]

Das hat leider nicht funktioniert. Das Fenster wird über den ganzen Bildschirm gelegt!

Hast du eine andere Idee?

Zitat:

Zitat von Kamil

Vielleicht so:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin
  if BorderStyle<>bsNone then
  begin
    BorderStyle:=bsNone;
    WindowState:=wsNormal;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderStyle:=bsSizeable;
  WindowState:=wsMaximized;
end;

[Christian_1980]

Huhu Christof

Bei mir hat Kamils Lösung funktioniert.

[Matze]

Hi.
Bei mir auch.

[Christof]

Zitat:

Zitat von Matze

Hi.
Bei mir auch.

Tja bei mir aber nicht.

Der Ablauf bei mir ist.

Zuerst ein Splash Form
dann ein Login-Form das auf Status Hide gesetzt wird
Und das Login Form soll das Formular aufrufen, das den Desktop überblendet. OS ist WinXP und Delphi 6.0.


Vielleicht hilft das?!?