Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Handle > TWinControl (https://www.delphipraxis.net/39512-handle-twincontrol.html)

SleepyMaster 3. Feb 2005 17:30


Handle > TWinControl
 
Hi ihrs...

ist es möglich aus einem Handle eine TWinControl zu erzeugen?

Mal als Beispiel:
  • Ich hab das Handle eines Fensters
  • Übergeb das einer Funktion
  • Und die macht aus dem Handle wieder ein TWinControl um darauf einfacher zugreifen zu können

Vielen Dank
SleepyMaster

EDIT: :oops: Controls.FindControl(hWnd);

mirage228 3. Feb 2005 17:43

Re: Handle > TWinControl
 
Delphi-Quellcode:
TWinControl.CreateParented()
;)

mfG
mirage228

Luckie 3. Feb 2005 17:46

Re: Handle > TWinControl
 
Aus einem Handle eine Control erzeugen? Ein Handle ist nur eine eindeutige Kennummer eines Fesnters, nichts weiter. Mit diesem Hintergrundwissen, erklär mal genauer, was du willst.

SleepyMaster 3. Feb 2005 18:10

Re: Handle > TWinControl
 
Ich schreib momentan ein Programm mit Plugin unterstützung...

Ich übergeben den Plugins eine Handle für ein TabSheet auf das sie ihre GUI zur Verfügung stellen können...
Da ich aber auch möchte, dass auch DLLs in C geschrieben werden können kann ich jetzt nicht einfach TTabSheet übergeben sondern das Handle des TabSheets.
Ich will aber auch selber DLLs für das Programm schreiben -> in Delphi mit VCL...
Wenn ich jetzt aber einen Button erzeugen will muss ich ihm ein TWinControl als Parent mitgeben.

Delphi-Quellcode:
  Button1 := TMyButton.CreateParented(hWnd);
  Button1.Caption := 'asdasd';
  Button1.OnClick := Button1.Button1Clicked;
  Button1.Parent := Controls.FindControl(hWnd);
Vielleicht gehts ja auch einfacher?!?

Bigmichi 26. Feb 2005 12:12

Re: Handle > TWinControl
 
Code:
 
V : TWinControl;

V := TWinControl.CreateParented(strtoint(listbox1.Items[listbox1.ItemIndex]));
V.Parent := FindControl(strtoint(listbox1.Items[listbox1.ItemIndex]));

form1.Caption := inttostr(V.Parent.Left);
Parentwindow zeigt mir auch das richtige handle an nur ich kann nicht drauf zugreifen wieso ????

also bei der caption zeile macht er nen fehler =((

mirage228 26. Feb 2005 13:06

Re: Handle > TWinControl
 
Hi,

ist V.Parent auch <> nil ?

mfG
mirage228

Bigmichi 26. Feb 2005 13:29

Re: Handle > TWinControl
 
hab grade festgestellt, dass "FindControl" nur die Contrtols in seiner eigenen App fidnet... Handles ausserhalb von fremden Fenstern geht nicht aber das ist grade das was ich ja will =(


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:28 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