Einzelnen Beitrag anzeigen

HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
970 Beiträge
 
Delphi 6 Professional
 
#3

AW: Bildschirmschoner Preview

  Alt 25. Sep 2015, 19:49
Versuche es mal so
Delphi-Quellcode:
If ParamStr(1) = '/pThen 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 !!

Geändert von HolgerX (25. Sep 2015 um 19:51 Uhr)
  Mit Zitat antworten Zitat