Hallo,
ich arbeitet zurzeit mit "EmbeddedWB" !
mein problem ist:Wenn ich eine EmbeddedWB Komponenten zur laufzeit erstellt und das auf einer PageControl komponenten kann ich kein enter drücken - es passiert nicht ! aber wenn ich die Komponenten nicht zur laufzeit teste geht das - warum ?
ich erstelle so einen neuen TabSheet:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
| function CreateTabSheet(PageName, WebSite: string;Auto:Bool):IDispatch;
var
Sheet: TTabSheet;
wb: TEmbeddedWB;
begin
isFertig:=false;
Sheet := TTabSheet.Create(Form1.PageControl1);
Sheet.PageControl := Form1.PageControl1;
Sheet.caption:='Lade...';
wb := TEmbeddedWB.Create(Sheet.Parent);
with TWinControl(wb) do begin
Align := alClient;
Parent := Sheet;
end;
with wb do begin
Navigate(WebSite);
OnTitleChange:=Form1.TestTitleChange;
OnStatusTextChange:=Form1.TestStatusTextChange;
OnNewWindow2:=Form1.TestNewWindow2;
OnProgressChange:=Form1.WebBrowser1ProgressChange;
OnDocumentComplete:=Form1.WebBrowser1DocumentComplete;
result:=DefaultDispatch;
end;
Liste.add(wb);
end; |
die funktionit geht prima
MFG
mimi
Moderiert von 
Christian S.: Code- durch Delphi-Tags ersetzt.
