摘要： 1、IHTMLWindow2-> IWebBrowser2var wd:IHTMLWindow2; iw:IWebBrowser2;begin (wd as IServiceProvider).QueryService(IID_IWebBrowserApp,IWebBrowser2,Iw);end;2、IHTMLDocument2.frames.item(i) -> IHTMLWindow2var dsp:IDispatch; wd:IHTMLWindow2; doc:IHTMLDocument2;begin dsp:=doc.frames.item(i); wd:= dsp .. 阅读全文

摘要： //声明:GetWindow( hWnd: HWND; {指定的窗口句柄} uCmd: UINT {指定的关系选项}): HWND; {失败返回0; 成功返回符合的窗口句柄}//uCmd 可选值:GW_HWNDFIRST = 0; {同级别第一个}GW_HWNDLAST = 1; {同级别最后一个}GW_HWNDNEXT = 2; {同级别下一个}GW_HWNDPREV = 3; {同级别上一个}GW_OWNER = 4; {属主窗口}GW_CHILD = 5; {子窗口}{要有个 Memo 接受数据}procedure TForm1.Button1Cli... 阅读全文

摘要： procedure TForm1.Timer1Timer(Sender: TObject);var H:HWND; arr:array[0..254] of char; Rt:TRect; pt:TPoint; ca:TCanvas;begin ca:=TCanvas.Create ; ca.Handle :=GetDc(0); if GetCursorPos(pt) then begin //将鼠标位置写入pt label1.Caption :='鼠标位置：'+inttostr(pt.x)+','+inttostr(pt.y); h:=WindowFrom.. 阅读全文

摘要： 指针，是一个无符号整数（unsigned int），它是一个以当前系统寻址范围为取值范围的整数。指针对应着一个数据在内存中的地址，得到了指针就可以自由地修改该数据。指针的指针就是用来存放指针所在的内存地址的。@:取址运算符; ^:指针的引用解析操作符;//////////////////1，类型指针的定义。对于指向特定类型的指针varptr : ^Integer;ptr : ^char; 2，无类型指针的定义。也就是可以指向任何类型数据的指针。Object Pascal为其定义了一个专门的类型：Pointer。ptr : Pointer;3，指针的解除引用。要解除指针引用（即取出指针所指区域的 阅读全文

摘要： 方法来到类中, 以前的特点基本都在;因为类一般是存在于一个继承链中, 所以就有了一些新的概念, 譬如: 继承、覆盖;也有了很多新名称, 譬如: 静态方法、虚方法、动态方法、抽象方法、类方法、消息方法.先从虚方法与动态方法开始吧//下面的类中就定义了两个虚方法(virtual)、两个动态方法(dynamic)TMyClass = class procedure Proc1(x,y: Real); virtual; function Fun1(x,y: Real): Real; virtual; procedure Proc2(x,y: Real); dynamic; function Fun2( 阅读全文

摘要： //抽象方法类似与接口; 在没有接口的年代 Delphi 是用抽象方法来模拟接口的; 我想它最终会被接口替代.{下面就定义了两个抽象方法}TMyClass = class(TObject)　procedure Proc1; virtual; abstract; {抽象方法首先应该是一个虚方法或动态方法}　function Fun: string; dynamic; abstract; {抽象方法也叫纯虚方法}end;{　抽象方法在本类中只有定义、没有实现;　抽象方法应该在子类中实现.　如果一个类包含了抽象方法, 那么这个类也就成了抽象类;　抽象类只能通过其子类来实例化, 自己不能生成对象... 阅读全文

摘要： programProject1;{$APPTYPECONSOLE}usesSysUtils;varstr:String;beginWriteln('请输入：');Readln(str);Writeln('您输入的内容是：'+str);readkey;end.{-----------------------------Writeln是输出语句，输出语句有三种格式:①Write(输出项1，输出项2)；｛执行输出后光标不换行｝②Writeln(输出项1，输出项2)；｛执行输出后光标换到下一行｝③Writeln｛仅输出空白且光标换到下一行｝Writeln语句后面的圆括号 阅读全文