Bildschirmschoner Preview

[DelphiUser123]

Hallo liebe Delphi Freunde,
ich habe Ähnliches schon woanders gepostet, aber hier ist wohl mehr los in der Bude.

Habe einen tollen Screensaver kreiert. Der einzige Schwachpunkt: Die Miniatur Vorschau im Einstellungsfenster klappt nicht. Die Vorschau soll lediglich das Firmenlogo zeigen.

Zuletzt habe ich folgendes probiert:

Delphi-Quellcode:

If ParamStr(1) = '/p' Then begin 

 ParentWnd:= _StrToInt(ParamStr(2)); // _StrToInt ist oben definierte Funktion mit Val(...)
 Windows.GetWindowRect(ParentWnd, WndRect);


 Form5.WindowHandle:= ParentWnd;    //geht nicht

// Form5.Top:= WndRect.Top;
// Form5.Left:=WndRect.Left;

// Form5.Width:=152;
// Form5.Height:=112;


 Form5.Image2.Visible:=true;

 UpdateWindow(ParentWnd);
 Refresh;

Was ich bis dato hinbekommen habe ist ein Formular das genau in das Preview Fenster hinein passt und auch an dieser Stelle des Einstellungsdialoges erscheint: ABER als seperates Window.
Viele Versuche (auch mit Canvas.Create, TBitmap.Create) führten zwar zu fehlerfreiem Compilieren jedoch blieb der Preview Bereich schwarz.

Vielen Dank für Tipps

[Sir Rufo]

Crossposts bitte verlinken
http://forum.delphi-treff.de/index.p...iatur-Vorschau

[HolgerX]

Versuche es mal so ;)

Delphi-Quellcode:

If ParamStr(1) = '/p' Then begin 

 ParentWnd:= _StrToInt(ParamStr(2)); // _StrToInt ist oben definierte Funktion mit Val(...)
 Windows.GetWindowRect(ParentWnd, WndRect); // Größe Vorschaufenster holen

 Form5.SetBounds(0, 0, WndRect.Right - WndRect.Left, WndRect.Bottom - WndRect.Top); // Größe des eigenen Vorschaufensters anpassen
 Form5.BorderStyle := bsNone; // Wir wollen ja keinen Fensterrahmen

 Windows.SetParent(Form5.Handle, ParentWnd); // Parent setzen

So wird DEIN Fenster im Vorschaufenster angezeigt und Du musst nicht (wie bei Delphi-Treff geschrieben) in einem 'Fremden' Fenster rummalen !!

[DelphiUser123]

Danke HolgerX! Hat wunderbar geklappt mit dem Parent Befehl.
Der Link bei Delphi- Treff war auch aufschlussreich @DeddyH, ich habe auch einen Befehl von dort übernommen (IsWindowVisible...) für das Abschalten beim p Modus.
Gruss