delphi 자동으로 맨 밑으로 스크롤
14972 단어 Delphi
scroll
Uses MSHTML;
{$R *.dfm}
var
ScrollPos: integer=0;
procedure TForm1.Button1Click(Sender: TObject);
begin
inc(ScrollPos, 10);
if WebBrowser1.Document <> nil then
(WebBrowser1.Document as IHTMLDocument2).parentWindow.scroll(0,ScrollPos);
end;
// *********************************************************************//
// Interface: IHTMLWindow2
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {332C4427-26CB-11D0-B483-00C04FD90119}
// *********************************************************************//
IHTMLWindow2 = interface(IHTMLFramesCollection2)
['{332C4427-26CB-11D0-B483-00C04FD90119}']
function Get_frames: IHTMLFramesCollection2; safecall;
procedure Set_defaultStatus(const p: WideString); safecall;
function Get_defaultStatus: WideString; safecall;
procedure Set_status(const p: WideString); safecall;
function Get_status: WideString; safecall;
function setTimeout(const expression: WideString; msec: Integer; var language: OleVariant): Integer; safecall;
procedure clearTimeout(timerID: Integer); safecall;
procedure alert(const message: WideString); safecall;
function confirm(const message: WideString): WordBool; safecall;
function prompt(const message: WideString; const defstr: WideString): OleVariant; safecall;
function Get_Image: IHTMLImageElementFactory; safecall;
function Get_location: IHTMLLocation; safecall;
function Get_history: IOmHistory; safecall;
procedure close; safecall;
procedure Set_opener(p: OleVariant); safecall;
function Get_opener: OleVariant; safecall;
function Get_navigator: IOmNavigator; safecall;
procedure Set_name(const p: WideString); safecall;
function Get_name: WideString; safecall;
function Get_parent: IHTMLWindow2; safecall;
function open(const url: WideString; const name: WideString; const features: WideString;
replace: WordBool): IHTMLWindow2; safecall;
function Get_self: IHTMLWindow2; safecall;
function Get_top: IHTMLWindow2; safecall;
function Get_window: IHTMLWindow2; safecall;
procedure navigate(const url: WideString); safecall;
procedure Set_onfocus(p: OleVariant); safecall;
function Get_onfocus: OleVariant; safecall;
procedure Set_onblur(p: OleVariant); safecall;
function Get_onblur: OleVariant; safecall;
procedure Set_onload(p: OleVariant); safecall;
function Get_onload: OleVariant; safecall;
procedure Set_onbeforeunload(p: OleVariant); safecall;
function Get_onbeforeunload: OleVariant; safecall;
procedure Set_onunload(p: OleVariant); safecall;
function Get_onunload: OleVariant; safecall;
procedure Set_onhelp(p: OleVariant); safecall;
function Get_onhelp: OleVariant; safecall;
procedure Set_onerror(p: OleVariant); safecall;
function Get_onerror: OleVariant; safecall;
procedure Set_onresize(p: OleVariant); safecall;
function Get_onresize: OleVariant; safecall;
procedure Set_onscroll(p: OleVariant); safecall;
function Get_onscroll: OleVariant; safecall;
function Get_document: IHTMLDocument2; safecall;
function Get_event: IHTMLEventObj; safecall;
function Get__newEnum: IUnknown; safecall;
function showModalDialog(const dialog: WideString; var varArgIn: OleVariant;
var varOptions: OleVariant): OleVariant; safecall;
procedure showHelp(const helpURL: WideString; helpArg: OleVariant; const features: WideString); safecall;
function Get_screen: IHTMLScreen; safecall;
function Get_Option: IHTMLOptionElementFactory; safecall;
procedure focus; safecall;
function Get_closed: WordBool; safecall;
procedure blur; safecall;
procedure scroll(x: Integer; y: Integer); safecall;
function Get_clientInformation: IOmNavigator; safecall;
function setInterval(const expression: WideString; msec: Integer; var language: OleVariant): Integer; safecall;
procedure clearInterval(timerID: Integer); safecall;
procedure Set_offscreenBuffering(p: OleVariant); safecall;
function Get_offscreenBuffering: OleVariant; safecall;
function execScript(const code: WideString; const language: WideString): OleVariant; safecall;
function toString: WideString; safecall;
procedure scrollBy(x: Integer; y: Integer); safecall;
procedure scrollTo(x: Integer; y: Integer); safecall;
procedure moveTo(x: Integer; y: Integer); safecall;
procedure moveBy(x: Integer; y: Integer); safecall;
procedure resizeTo(x: Integer; y: Integer); safecall;
procedure resizeBy(x: Integer; y: Integer); safecall;
function Get_external: IDispatch; safecall;
property frames: IHTMLFramesCollection2 read Get_frames;
property defaultStatus: WideString read Get_defaultStatus write Set_defaultStatus;
property status: WideString read Get_status write Set_status;
property Image: IHTMLImageElementFactory read Get_Image;
property location: IHTMLLocation read Get_location;
property history: IOmHistory read Get_history;
property opener: OleVariant read Get_opener write Set_opener;
property navigator: IOmNavigator read Get_navigator;
property name: WideString read Get_name write Set_name;
property parent: IHTMLWindow2 read Get_parent;
property self: IHTMLWindow2 read Get_self;
property top: IHTMLWindow2 read Get_top;
property window: IHTMLWindow2 read Get_window;
property onfocus: OleVariant read Get_onfocus write Set_onfocus;
property onblur: OleVariant read Get_onblur write Set_onblur;
property onload: OleVariant read Get_onload write Set_onload;
property onbeforeunload: OleVariant read Get_onbeforeunload write Set_onbeforeunload;
property onunload: OleVariant read Get_onunload write Set_onunload;
property onhelp: OleVariant read Get_onhelp write Set_onhelp;
property onerror: OleVariant read Get_onerror write Set_onerror;
property onresize: OleVariant read Get_onresize write Set_onresize;
property onscroll: OleVariant read Get_onscroll write Set_onscroll;
property document: IHTMLDocument2 read Get_document;
property event: IHTMLEventObj read Get_event;
property _newEnum: IUnknown read Get__newEnum;
property screen: IHTMLScreen read Get_screen;
property Option: IHTMLOptionElementFactory read Get_Option;
property closed: WordBool read Get_closed;
property clientInformation: IOmNavigator read Get_clientInformation;
property offscreenBuffering: OleVariant read Get_offscreenBuffering write Set_offscreenBuffering;
property external: IDispatch read Get_external;
end;
Wiz
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
[Delphi] TStringBuilder그리고 꼭 사용해야만 할까? 그림처럼 Heap 영역에 "Hello" 공간을 생성하고 포인팅을 한다. "Hello World" 공간을 새로 생성한 후 포인팅을 하게 된다. 결국 "Hello" 라는 String 객체가 ...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.