你是指在你的应用程序里还是
应用程序: FOR I:=0 TO FORM2.ControlCount-1 DO
BEGIN
IF FORM2.Controls[I] IS TBUTTON THEN
x:=TBUTTON(FORM2.Controls[I]).left;
y:=TBUTTON(FORM2.Controls[I]).top;
....
END;
应用程序: FOR I:=0 TO FORM2.ControlCount-1 DO
BEGIN
IF FORM2.Controls[I] IS TBUTTON THEN
x:=TBUTTON(FORM2.Controls[I]).left;
y:=TBUTTON(FORM2.Controls[I]).top;
....
END;
应用程序: FOR I:=0 TO FORM2.ControlCount-1 DO
BEGIN
IF FORM2.Controls[I] IS TBUTTON THEN
begin
x:=TBUTTON(FORM2.Controls[I]).left;
y:=TBUTTON(FORM2.Controls[I]).top;
....;
end;
END;