销售管理软件版1楼: 问题如标题所说.

2楼: WINSOCK这个类里面应该会有这种功能的函数,可是我不知道那个是. 如软件开发管理制度

3楼: 要用消息

4楼: 怎样用,具体是怎样来做.

5楼: procedure TForm2.Button1Click(Sender: TObject);
begin
form1.SetFocus;
end;
//没太明白你的意思，是不是这样

6楼: 这只是在自身程序中得到焦点,我要的是在有其它程序同时运行的时候,得到我的程序的窗体焦点.

销售管理软件版7楼: 用函数SetForegroundWindow,可以把你的窗口带到最前面,就象鼠标点选了一样.

8楼: 好像做不到，除非其他程序主动发出消息到你的程序

9楼: 这个函数怎样使用

10楼: 不行啊~还有没有其它的方法呢？

11楼: 你可以先用findwindowex函数找到你的函数，在设置焦点

12楼: 不知道怎样做,可能说得详细点吗？ 如零售店管理软件

13楼: 没有人遇到过这个问题吗？

销售管理软件版14楼: 你是点弹出窗口后就表得焦点吗，我也遇到这个问题,目前也没有解决,但又不能用showmard

15楼: 会的请帮帮忙啊~这个问题应该是比较常见的啊

16楼: 最简单的办法，需要选择哪个窗体就Show

例如：需要form2窗体成为当前的焦点就
form2.show;

17楼: 这个我知道啊~在我自身的程序里面是个菜鸟的东西啊~但我要的是在外部,也能实现这种效果,如:我打开了一个自己做的程序和一些网页,这时我要我的程序窗体在某一时间出现在桌面上的最前端.

18楼: 哦~~~等等，我试验下

19楼: 有没有人会啊

20楼: Screen.ActiveForm 它可以獲得焦點。

销售管理软件版21楼: 应该怎样用这个...

22楼: 我晕~没有人来顶一下吗？ 如管家进销存

23楼: 各位大虾教教小弟吧~一天都没有人会这个问题...

24楼: 在此基础上上级指示人民英雄纪念碑

25楼: 在VB里可以用 AppActivate来实现,DELPHI里不知道用什么.

26楼: 我晕~我试出来了,是在窗体属性中设置一下就OK了.
真是好郁闷啊~这么一个问题没有人知道.........

27楼: 在每個窗體裡設置一個事件Activate就可以：
procedure TForm1.FormActivate(Sender: TObject);
begin
ShowMessage(Screen.ActiveForm.Name);
end;

销售管理软件版28楼: 不会吧~只是用这样的方法来,也没有得到我要的效果,我要的是一直在最前端显示的.

29楼: 不过不是谢谢各位的支持...都给一点分吧.

30楼: 多人接受答案了。