2008年12月16日
(转 )Delphi指针如何指向使用with开域语句创建的无名组件对象
摘要： procedure TForm1.Button1Click(Sender: TObject); var P: Pointer; begin P := nil;{洗得干干净净一尘不染} with TButton.Create(Self) do begin asm mov P, eax end; TButton(P).Caption := 'All R... 阅读全文
posted @ 2008-12-16 11:34 谭志宇 阅读(323) 评论(0) 推荐(0) 编辑