Also ich möchte ein ein ein tabsheet dynamisch zu laufzeit erzeugen und dieses tabsheet soll auf einem vorgebenen Pagecontrol aus einer dll geladen werden!
So hier mein ansatz wenn ich das tabsheet dynamisch aus dem programm heraus erzeuge
Quelltext
1:
2:
3:
4:
| TabSheetTest := TTabSheet.Create((FindComponent('PageControlTool') as TPageControl).Name);
TabSheetTest.PageControl := (FindComponent('PageControlTool') as TPageControl).Name;
TabsheetTest.Caption := 'Test';
TabsheetTest.Name := 'TabSheetTool1'; |
so und das funktionniert auch!
wenn ich das aber in eine dll packe
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| var
TabSheetTest: TTabSheet;
{$R *.res}
procedure Test;
begin
TabSheetTest := TTabSheet.Create((FindComponent('PageControlTool') as TPageControl).Name);
TabSheetTest.PageControl := (FindComponent('PageControlTool') as TPageControl).Name;
TabsheetTest.Caption := 'Test';
TabsheetTest.Name := 'TabSheetTool1';
end;
exports Test;
begin
end. |
kommt die meldung, dass "findcomponent" ein ungültiger bezeichner wäre, anscheinend kann man diesen nicht in dlls verwenden. Wahrscheinlich muss man hier über Handles auf das pagecontrol zugreifen, leider hab ich davon keine ahnung.
Kann mir da vielleicht jemand weiterhelfen?
Danke
DT2158
