Schattieren eines Forms

[gluglu]

Hallo !

Ich habe diesen Tip benutz zur schattierung eines Forms : http://www.swissdelphicenter.ch/de/showcode.php?id=1296

Aber ich bekomme nicht die Schattierung beim Form öffnen, sondern nur wenn ein anderes Fenster aufgerufen wird (anderes Windows Program z.B. Word, Excel, oder was auch immer ...) und ich wieder zurück zu meinem Form rufe.

Warum mag dieses möglich sein ?

Benutze Delphi 2005 (und habe sowohl unter .Net als Win32 ausprobiert, beides gleich), und WinXP SP2.

Danke.

[gluglu]

Ich bemerke dass wenn das Form mit Form.Show geöffnet wird (zusammen mit StayOnTop := True !!), klappt alles perfekt, aber mit Form.ShowModal nicht.

Kann jemand helfen ?

Danke

[omata]

Dieses Forum hat eine Suche!
Schau doch mal hier

[gluglu]

Danke omata !

Ich habe vorher gesucht unter 'Schattierte Forms' und 'Schatten', usw. aber leider nicht mit 'DropShadow', daher den zitierten link nicht gefunden.

Ich benutze Delphi 2005 & 2006 und SystemParametersInfo(SPI_SETDROPSHADOW,0,Pointer(true),0); klappt nicht bei mir. Bin noch nicht so gut drauf mit 'Pointers'. Fehlermeldung : 'Invalid Typecast' bei Pointer(True).

Danke

[omata]

Moin,

das kannst du so umgehen...

Delphi-Quellcode:

var b:longbool;
begin
  b:=true;
  SystemParametersInfo(SPI_SETDROPSHADOW, 0, b, 0);
end;

MfG
Thorsten

[gluglu]

Besten Dank !

Trozt alle Versuche, beim Form.ShowModal klappt es immer noch nicht !! Ich hatte folgendes sonstwo noch gefunden :

Zitat:

After reading the MS website, the shadow is displayed to show the Z order. So the shadow may be truncated if other windows on the desktop are placed higher in the Z order.

Wie schon gesagt, selten ist dass beim zurückkehren in mein Program von irgend ein anderes Windowsprogram, ist der Schatten auch beim Form.ShowModal perfekt

[omata]

Ja, das Problem habe ich auch.

Irgendwie ist das alles nicht so toll.

Schade, das es nicht funktioniert.

[gluglu]

So funktioniert es !! ... auch für Form.ShowModal

Form1.Create(Self);
Form1.PopupMode := pmAuto;
Form1.ShowModal;

[Khabarakh]

Zitat von gluglu:

Form1.Create(Self);

So steht das aber hoffentlich nicht in deinem Quelltext .

[omata]

Schön, das es so geht.
Aber was ist Form.PopupMode das habe ich gar nicht.

Edit: Vergiss es in Delphi 2005 bzw. NET habe ich es jetzt auch gefunden. In Delphi7 gibt es das leider nicht.

MfG
Thorsten