巨难问题，非高手勿入，严禁灌水(300分)

3

3boy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #1

问题如下：
现在有form1，form2,form1上有一个Edit对象，现在要求当我在输入字符在edit中时，
form2动态弹出，并切焦点不转移到form2中，保持焦点总是在edit上边。

 

3

3boy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #2

没有人来回答吗？

 

吕

吕雪松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #3

这有何难？把Form2设为StayOnTop，在Form1.Edit1.OnChange中写
form2.show;
Edit1.SetFocus;

 

房

房客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #4

setfocus
setactive

 

I

itren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #5

OK!
Showwindow(form2.handle,SW_SHOWNA);
给分噢！

 

憔

憔悴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #6

有什么巨难的！
procedure TForm1.Edit1Change(Sender: TObject);
begin
Form2.Show;
windows.SetFocus(form1.handle);
end;

 

扳

扳手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #7

这个问题很难吗？还是我没看懂你的意思？
在form1的onchange事件里写：
procedure TForm1.Edit1Change(Sender: TObject);
begin
form2.Show;
edit1.SetFocus;
end;

 

3

3boy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #8

无效，不相信你试。
这个我已经试过了我写的如下；
procedure TFrmHuaJia.EdtMedKeyPress(Sender: TObject;
var Key: Char);
var
Ps:TPoint;
begin
if FrmSwMed=nil then
FrmSwMed:=TFrmSwMed.Create(Application);
ps:=ClientToScreen(Point(EdtMed.Left,GroupBoxMed.Top+EdtMed.Top+EdtMed.Height));
FrmSwMed.Left:=ps.X;
FrmSwMed.Top:=ps.Y;
// FlashWindow(FrmSwMed.Handle,FALSE);
FrmSwMed.Show;
EdtMed.SetFocus;
end;
没有用？

 

3

3boy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #9

憔悴回答的是对的

 

3

3boy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #10

对其他几位同志表示感谢！

 

扳

扳手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #11

不能在onkeypress中写，在onchange事件里写

 

3

3boy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #12

多人接受答案了。

 

I

itren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #13

to 3boy 你看到我的了吗？

 

扳

扳手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #14

？？？总被人家写慢半拍！ 晕！[]

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #15

怪事，我就这两句，照样操作得好好的：
procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
form2.show;
edit1.setfocus;
end;

 

I

itren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #16

220 大分啊！ 5555~~~~~~~~~~~~~~

 

福

福利彩票

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #17

to :3boy
你没有把Form2设为StayOnTop吧！

 

憔

憔悴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #18

你要的是Form2不被遮盖，而且焦点在Edit1框里是把？
这样的话需要把Form2设为StayOnTop.;
procedure TFrmHuaJia.EdtMedKeyPress(Sender: TObject;
var Key: Char);
var
Ps:TPoint;
begin
if FrmSwMed=nil then
FrmSwMed:=TFrmSwMed.Create(Application);
ps:=ClientToScreen(Point(EdtMed.Left,GroupBoxMed.Top+EdtMed.Top+EdtMed.Height));
FrmSwMed.Left:=ps.X;
FrmSwMed.Top:=ps.Y;
// FlashWindow(FrmSwMed.Handle,FALSE);

FrmSwMed.FormStyle:=fsStayOnTop;

FrmSwMed.Show;
EdtMed.SetFocus;
end;

 

3

3boy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #19

to Itren
你的我试过了结果，form2是弹出了但是，焦点没有转移，但是窗体的绘制会有问题，不行。

 

憔

憔悴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #20

^_^，赚了！！！！