请问怎么将控件作为参数传递阿

Question

控件

Answer 1

//试试这样的格式
function getButton(const Ptr: Pointer): Boolean;
var
  btn: TButton;
begin
  btn := TButton(Ptr);  //将指针强制转换成TButton
  ShowMessage(btn.Caption);
end;

Answer 2

声明里webobj:Tobject;TWebBowser(webobj).OleObject.document.cookie;

Answer 3

还是不会阿.在函数和过程内给函数名赋值就是返回,这个是强制返回.
嗯，我看走眼成get_cookie(.... 递归了俺这里编译并没有报错，你是运行时报错还是编译时报错
function get_cookie(webobj:TWebBrowser):string;  //这里报错
begin
  get_cookie:= webobj.OleObject.document.cookie;
end;

Answer 4

你的函数声明没问题. 只是提取cookie的代码错了uses mshtml;
{$R *.dfm}
function get_cookie(webobj:TWebbrowser):string;
begin
  if (webobj = nil) or (webobj.Document = '') then
    exit('');  get_cookie := (webobj.Document as IHTMLDocument2).cookie;
end;procedure TForm2.Button1Click(Sender: TObject);
begin
  caption := get_cookie(WebBrowser1);
end;procedure TForm2.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.baidu.com');
end;

Answer 5

还是不会阿.在函数和过程内给函数名赋值就是返回,这个是强制返回.
嗯，我看走眼成get_cookie(.... 递归了俺这里编译并没有报错，你是运行时报错还是编译时报错
function get_cookie(webobj:TWebBrowser):string;  //这里报错
begin
  get_cookie:= webobj.OleObject.document.cookie;
end;
现在也不报错了...应该是忘记uses了...

Answer 6

[dcc32 Error] Unit1.pas(192): E2003 Undeclared identifier: 'TWebBowser'XE5...

Answer 7

[dcc32 Error] Unit1.pas(192): E2003 Undeclared identifier: 'TWebBowser'XE5...
虽然我打错了。。但是WebBrowser1: TWebBrowser;这种错误都查不出来？
 TWebBrowser(webobj).OleObject.document.cookie;

Answer 8

[dcc32 Error] Unit1.pas(192): E2003 Undeclared identifier: 'TWebBowser'XE5...
虽然我打错了。。但是WebBrowser1: TWebBrowser;这种错误都查不出来？
 TWebBrowser(webobj).OleObject.document.cookie;
那天其实我看到了，你看我前面连续回帖3次。

Answer 9

[dcc32 Error] Unit1.pas(192): E2003 Undeclared identifier: 'TWebBowser'XE5...
虽然我打错了。。但是WebBrowser1: TWebBrowser;这种错误都查不出来？
 TWebBrowser(webobj).OleObject.document.cookie;
那天其实我看到了，你看我前面连续回帖3次。
看来我似乎错了……