想实现如下的一个功能：Show 一个 form ，但是不给他焦点！(50分)

S

searoom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #1

这样的：

在进入一个 TEDit 控件的同时 Show 一个 Form 出来
此时，当前焦点会自动转到 这个新 Show 出来的 Form 上

可是我不想让焦点移开，该做哪些工作？

（我使用该 Form 只是显示一些提示信息而已）

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #2

用THintWindow吧。

 

S

searoom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #3

可是我想在那个 Form 上加入一些控件，也就是一个自定义的窗口啊

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #4

等Show 一个 Form 出来后，再TEDit.SetFocus就行了

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #5

1、show出的Form采用非模式；
2、show出的Formfs使用StayOnTop；
3、show出后立刻重新show当前窗口。

 

A

Aiirii

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #6

tipForm.FormStyle := fsStayOnTop;
tipform.Enabled := false;

 

T

toofy45

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #7

yostgxf, 和 TYZhang, 的方法是可行的

 

S

searoom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #8

to TYZhang
1、show出的Form采用非模式

这个怎么设？ Form.FormStyle=fsStayOnTop 啊，
而且我也不是使用 showmodal 来show窗口的啊

 

A

amli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #9

procedure TForm1.Button1Click(Sender: TObject);
var
HintWindow : THintWindow;
Image : TImage;
begin
HintWindow := THintWindow.Create(self);
Image := TImage.Create(HintWindow);
Image.Parent := HintWindow;
Image.Picture.Icon.Handle := Application.Icon.Handle;
HintWindow.ActivateHint(Rect(100,100,200,200),'');
end;

 

S

searoom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #10

不使用 THingWindow 行不行啊？

 

A

amli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #11

不是不行,是THingWindow應該是比較好用的.

 

S

searoom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-16

• #12

多人接受答案了。