Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Fenstergröße an Änderung anpassen (https://www.delphipraxis.net/131008-fenstergroesse-aenderung-anpassen.html)

hanspeter 17. Mär 2009 12:55


Fenstergröße an Änderung anpassen
 
Fenstergröße verändern

Hallo,
kann mir wer auf die Sprünge helfen?
Ich bin im Moment gerade mit meinem Plugin-System auf Exe-Basis am probieren.

Ich starte eine Exe und übergebe dieser ein Panel als Parent.
Das funktioniert problemlos. Das jeweilige Fenster der Exe wird auf dem Panel angezeigt und
an die Größe des Panels angepasst.

Ich möchte das sich bei einer Größenänderung des Parentpanels sich die gestartete Exe an diese Größe anpasst.
Kann mir hier wer mit ein paar Zeilen Code auf die Sprünge helfen?

Die Anpassung der Fenstergröße an das Panel erfolgt beim Start mit nachfolgender Funktion:

Delphi-Quellcode:
procedure SetParent(Wnd : Hwnd; Handle: Hwnd);
var
  WPM : TWindowPlacement;
begin
  if Wnd <>0 then
  begin
    Windows.SetParent(wnd, Handle);
    WPM.Length:=SizeOf(TWindowPlacement);
    GetWindowPlacement(Handle, @WPM); //Positionen auslesen und nachfolgend in StringLists speichern
    width := WPM.rcNormalPosition.Right - WPM.rcNormalPosition.Left;
    height := WPM.rcNormalPosition.Bottom - WPM.rcNormalPosition.Top;
    SetWindowLong(wnd,GWL_STYLE,GetWindowLong(wnd,GWL_STYLE) AND NOT WS_CAPTION);
    WPM.Length:=SizeOf(WPM);
    GetWindowPlacement(wnd,@WPM);
    WPM.ShowCmd:=SW_ShowMaximized;
    WPM.rcNormalPosition:=Classes.Rect(0,0,width,height);
    SetWindowPlacement(wnd,@WPM);
  end;
end;
Für einen Tip dankbar.
Gruß
Peter

Bernhard Geyer 17. Mär 2009 12:57

Re: Fenstergröße an Änderung anpassen
 
Ein paar Zeilen reichen nicht.
Du mußt alle entsprechenden Delphi-Events durch deine DLL-Schnittstelle ans Plugin Tunneln.

hanspeter 17. Mär 2009 13:10

Re: Fenstergröße an Änderung anpassen
 
Zitat:

Zitat von Bernhard Geyer
Ein paar Zeilen reichen nicht.
Du mußt alle entsprechenden Delphi-Events durch deine DLL-Schnittstelle ans Plugin Tunneln.

Ich habe keine Dll Schnittstelle.
Ich starte ein Exe-File und übergebe diesem per Kommandozeile den Parent.
Das Framework sichert, das die Exe nur einmal gestartet werden kann.
Was ich suche ist eine Möglichkeit, das das gestartete Programm mitbekommt, wenn sich die
Parentgröße ändert.


Gruß
Peter

Bernhard Geyer 17. Mär 2009 13:14

Re: Fenstergröße an Änderung anpassen
 
Zitat:

Zitat von hanspeter
Ich habe keine Dll Schnittstelle.

Ändert nichts daran das du die VCL-Internen Events weiterleiten mußt. Bzw. bei Exe zurücksetzen auf Windows-Message darfst. Wird nicht einfach werden[/quote]

hanspeter 18. Mär 2009 06:21

Re: Fenstergröße an Änderung anpassen
 
Zitat:

Zitat von Bernhard Geyer
Wird nicht einfach werden

[/quote]

Doch ist erledigt ich muss nur "von der anderen Seite" adressieren.
Nicht der Client merkt, das sich der Parent ändert, sondern der Parent informiert den Client über Änderung.
Im o.g.Code ändert sich nur das Handle.

Gruß Peter


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:11 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz