Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen der Seite angezeigt.

--- delphi:vcl:createparented [2015/03/14 21:20] – mavarik
+++ delphi:vcl:createparented [2015/03/14 21:46] (aktuell) – gerdbernau
@@ Zeile 1: / Zeile 1: @@
+====== CreateParented ======
+Zum Beispiel in einer DLL\\
+<code delphi>
+function TFoo.Init(ParentWnd: hwnd; R: TRect; Param1 : Boolean): hWnd;
+begin
+  FFoo := TGoogleMapForm.CreateParented(ParentWnd);
+  FFoo.Layout.Height := R.Height; // Layout ist ein Panel
+  FFoo.Layout.Width  := R.Width;
+  FFoo.Layout.Realign;
+  FFoo.Init(Param1); // Der Parameter den wir eigentlich übergeben wollten...
+  SetWindowPos(FFoo.Layout.Handle,0,R.Left,R.Top,R.Right-R.Left,R.Bottom-R.Top,0);
+  Result := FFoo.Layout.Handle;
+end;
+</code>