标签：phi form ring color proc mys win button RoCE
procedure TForm12.Button2Click(Sender: TObject); var mystring: PChar; begin GetMem(mystring, 1024); GetWindowText(Button1.Handle,mystring,100); Label1.Caption := Format(‘%s:%d‘, [mystring, strlen(mystring)]); FreeMem(mystring); end;
标签：phi form ring color proc mys win button RoCE
原文地址：https://www.cnblogs.com/yangxuming/p/9228216.html
