当前位置:主页>仓库管理软件> 列表

动态创建的Edit如何设置实现回车自动换行?

记账软件版1楼: 动态创建的Edit如何设置实现回车自动换行?

2楼: 自己给 onkeypress事件赋值
例如
*.onkeypress:=fun1;
fun1是你自己定义的事件函数 如财务管理软件下载

3楼: 楼上的说得对,给分给他

4楼: 在form的onKeyPress事件里写上如下代码:
if key=#13 then begin
if not ((ActiveControl is TDBGrid) or (ActiveControl is TDBGridEh)) then begin
perform(WM_NEXTDLGCTL,0,0);
end else if (ActiveControl is TDBGrid) then begin
with TDBGrid(ActiveControl) do
if SelectedIndex<(FieldCount-1) then
selectedIndex:=SelectedIndex+1
else if not DataSource.DataSet.Eof then begin
DataSource.DataSet.Next;
selectedIndex:=0;
end else selectedIndex:=0;
end else if (ActiveControl is TDBGridEh) then begin
with TDBGridEh(ActiveControl) do
if SelectedIndex<(FieldCount-1) then
selectedIndex:=SelectedIndex+1
else if not DataSource.DataSet.Eof then begin
DataSource.DataSet.Next;
selectedIndex:=0;
end else selectedIndex:=0;
end;
end;

5楼: 接受答案了.

6楼: 你们真是个天才/[:)]