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 Right! ' ;
Parent : = Self; { 以下是开域语句的常见用法了 }
Left : = 100 ;
Top : = 100 ;
Width : = 100 ;
Height : = 30 ;
Show;
end ;
end ;
转载于:https://www.cnblogs.com/chengxin1982/archive/2008/12/16/1355854.html