procedure TForm1.Button1Click(Sender: TObject);var
P: Pointer;begin
P := nil;{洗得干干净净一尘不染}
with TButton.Create(Self) do begin
asm
mov P, eax
end;
TBut ...……
RAD Studio 10.1 Berlin(with Update1)http://altd.embarcadero.com/download/radstudio/10.1/delphicbuilder10_1_upd1.isoftp://ftpd.embarcadero.com/download/radstudio/10.1/delphicbuilder10_1_upd1.isoRAD Stu……