如何取得當前激活的窗體名稱!! 如何取得當前激活的窗體名稱!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果是你自己的工程,则Screen.ActiveForm如果是其它程序,则用GetActiveWindow取得句柄 var newhand:HWND;begin newhand:=GetForegroundWindow();end;newhand就是前台窗口句柄 procedure TForm1.Button2Click(Sender: TObject);var dd:Thandle; s:pchar;begin getmem(s,255); dd:=getactivewindow; getwindowtext(dd,s,255); showmessage(s); freemem(s);end; 结构体或者类如何用到属性编辑器中 问一下待遇问题? 关于delphi界面的问题? TADOQUERY 有问题 急 如何把字符转换成窗体类名???高分相送在线等待!!! 在线紧急问题——怎么样让DataSet记住以前的记录,这样我可以连续POST好几次,添加几条类似的记录?? 返回上一级目录? 问题:我想从几个表中搜索要修改的记录,然后修改完之后再搜下一个记录,不知道怎么实现? 有知道 delphi里向sqlserver2000里插二进制字段,知道吗,帮看一下,急,高分相送!(500够吗) 写一个使用三个表的select 语句 如何自动筛选重复记录(其中有个字段模糊类似)?在线等待 这句有错吗
Screen.ActiveForm
如果是其它程序,则用
GetActiveWindow
取得句柄
newhand:HWND;
begin
newhand:=GetForegroundWindow();end;
newhand就是前台窗口句柄
var
dd:Thandle;
s:pchar;
begin
getmem(s,255);
dd:=getactivewindow;
getwindowtext(dd,s,255);
showmessage(s);
freemem(s);
end;