Hi zusammen
In einem Pagecontrol will ich auf jeweils einem eigenen Tabsheet eine bestimmte Website anzeigen. Das klaptt auch soweit fast gut, mit dem 'klitzekleinen' Fehler, dass die gewünschte Webseite auch angezeigt wird - allerdings nicht innerhalb des Tabsheets, sondern als 'eigenständiges' Fenster und ohne dass dabei meine Anwendung im Hintergrund sichtbar wäre.
Der bisherige Code:
Delphi-Quellcode:
procedure TOfficerAlexMain.Btn_CSSClick(Sender: TObject);
var FireFox :
String;
begin
ShellExecute(0,'
open', Pchar('
FireFox.exe'), PChar('
https:my.css.ch/home'),
nil, SW_Hide);
SetFireFoxParent(Sender);
end;
procedure TOfficerAlexMain.SetFireFoxParent(Sender: TObject);
var aWnd : Hwnd; TbsFireFox: TTabsheet;
WPM : TWindowPlacement;
begin
aWnd:=FindWindow('
https:my.css.ch/home',
nil);
if aWnd<>0
then begin
Winapi.Windows.SetParent(awnd,TbsFireFox.Handle);
end;
end;
Dabei macht schon ShellExecute genau das, was es tun soll und startet den Firefox mit der gewünschten Website. Allerdings als eigenes Fenster, und meine Anwendung ist im Hintergrund nicht zu sehen.
Was mache ich Falsch?
Gruss
Delbor