如何得到处于焦点的控件名称? 我想做个右键菜单,有 粘贴和拷贝有很多EDIT编辑框,想实现对这些编辑框的右键功能,该怎么实现? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果是TPopupMenu,可以这么用procedure TForm1.asdf1Click(Sender: TObject);begin if (ActiveControl is TEdit) then showmessage((ActiveControl as TEdit).Text);end; 关于使用webbrowser控件获得网页信息的内容 VB转换成DELPHI的程序出错, 高手出来指点一下. 请问overload和override用法区别 如何将摄像头的图像中的指定颜色识别 delphi中间遇到的一个小问题~ ★★为什么选择Delphi.Net(转贴) ★★ 一个有关Timer的问题?? dbExpress与BDE哪个不要安装数据库客户端的? 關於文件屬性的操作!! 紧急求援TdbGrid多行选择问题 如何设置启动窗体? 进度条的进度显示问题
procedure TForm1.asdf1Click(Sender: TObject);
begin
if (ActiveControl is TEdit) then
showmessage((ActiveControl as TEdit).Text);
end;