怎么样使edit中回车后光标跑到指定的edit中(10分)

X

xxxfffcn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-10

• #1

怎么样使edit中回车后光标跑到指定的edit中
怎么样将一个表单的背景设为一幅图。若图片不够表单大，怎样使他平铺。

 

P

PhoenixPower

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-10

• #2

回车后你江要改变到的Edit SetFocus便可以了。

 

W

wangzheking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-10

• #3

procedure TMainForm.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
edit2.Focused := true;
end;

 

X

xujunjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-10

• #4

Answer 1：
在edit的OnKeyDown事件写：
if Key=VK_RETURN then
指定的edit.SetFocus;

Answer 2：
在表单上放一个Image,属性：
Align=alClient
Strecth=True;

 

F

fly2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-10

• #5

楼上说的很好了！你应该可以了！

 

X

xxxfffcn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-10

• #6

那个图是平铺不是拉伸的效果

 

港

_港湾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-10

• #7

我同意fly2003的答案
第一个问题的答案具体代码:有个问题,就是这个窗体中不能出现一个按钮的Default属性不能为True.这样就不能运行下面的代码了，记住了。
procedure TMainForm.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=Key=VK_RETURN then
edit2.SetFocus;
end;
第二个问题等我找到了告诉你，OK！

 

X

xxxfffcn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-10

• #8

谢谢各位，第2个问题还没有解决

 

X

xujunjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-12

• #9

Answer 2：
在窗体上放一个Image，设置如下属性：
AutoSize=True;
Visible=False
然后写OnPaint事件：

procedure TForm1.FormPaint(Sender: TObject);
var
i,j:integer;
bmp:TBitmap;
begin
bmp:=TBitmap.Create;
i:=0;
try
bmp.Assign(Image1.Picture.Bitmap);
while i<self.ClientWidth do begin
j:=0;
while j<self.ClientHeight do begin
self.Canvas.Draw(i,j,bmp);
j:=j+bmp.Height;
end;
i:=i+bmp.Height;
end;
finally
bmp.Free;
end;
end;

 

X

xujunjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-13

• #10

还有一种稍微简练的办法：
procedure TForm1.FormPaint(Sender: TObject);
var
bmp:TBitmap;
begin
bmp:=TBitmap.Create;
try
bmp.Assign(Image1.Picture.Graphic);
Canvas.Brush.Bitmap:=bmp;
Canvas.FillRect(self.ClientRect);
finally
bmp.Free;
end;
end;

 

X

xxxfffcn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-11

• #11

多人接受答案了。