我
我饿了
Unregistered / Unconfirmed
GUEST, unregistred user!
在一个程序中用到了Edit的keypress事件.
代码如下:
procedure TForm1.FlatEdit1KeyPress(Sender: TObject
var Key: Char);
begin
if key=#13 then
FlatButton1Click;
end;
意思是当按下回车键后执行FlatButton1的Click事件.但编译没有成功.不知应如何去写?
谢谢!
另外还有一个问题.
如何将一个Edit控件中的文字处于全选状态?
代码如下:
procedure TForm1.FlatEdit1KeyPress(Sender: TObject
var Key: Char);
begin
if key=#13 then
FlatButton1Click;
end;
意思是当按下回车键后执行FlatButton1的Click事件.但编译没有成功.不知应如何去写?
谢谢!
另外还有一个问题.
如何将一个Edit控件中的文字处于全选状态?