아래는 새로운 IE를 띄우는 예제입니다.
여기에서 IE의 형태가 SCROLLBAR가 세로, 가로 모두 없는 형태를 만들고 싶은데
IE.**** := false; 로 줘야 할것 같은데, ****에 대한 프러퍼티를 모르겠습니다.
고수님들의 조언 바랍니다.
procedure TForm1.OpenInternetExplorer( sURL : string );
const
csOLEObjName = 'InternetExplorer.Application';
var
IE : Variant;
WinHanlde : HWnd;
begin
if( VarIsEmpty( IE ) )then
begin
IE := CreateOleObject( csOLEObjName );
IE.Visible := true;
IE.VertScrollBar.Visible := False;
IE.Navigate( sURL );
end else
begin
WinHanlde := FindWIndow( 'IEFrame', nil );
if( 0 <> WinHanlde )then
begin
IE.Navigate( sURL );
SetForegroundWindow( WinHanlde );
end else
begin
// handle error ...
end;
end;
end;