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;
本文介绍了一个使用Delphi实现的窗体按钮点击事件处理示例,通过GetMem和FreeMem函数动态分配和释放内存,获取按钮文本并显示在标签上。此代码片段展示了如何在Delphi中操作窗体元素。
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;
转载于:https://www.cnblogs.com/yangxuming/p/9228216.html

被折叠的 条评论
为什么被折叠?