在新加记录的表单中,默认得是用tab键来移动焦点,我想用回车键,怎么办呢,我所有的控件都放在多页框内,谢谢。
解决方案 »
- delphi调用新大陆数据采集器
- 求bitbtn用的bmp小图标
- Delphi中出现的ntdll异常
- 谁有已经打包好的水晶报表客户端的程序?在线等待
- ADO实现级联删除问题。急......
- 投诉
- 谁知道,Delphi在关于报表打印方面有没有比较全面的资料
- 如何控制EDIT控件的输入为数字
- 我想把JPG格式的图打包或用DLL或用资源文件加到程序里,怎么做?哪个好
- 我今天在这儿看了很长时间的关于WNetOpenEnum这一系列的函数,主要是想知道怎样获取局域网内的所有计算机及它们的IP。我总结了一下,写了三个函数,封装在一个单元内。基本能通过,可是......
- 如何使TMEMO的光标所在行显示高亮并能得到此被选行的行号?
- ADOTable不能Post,怎么回事,请高手赐教……
这种问题一般是判断当前控件的onkeypress,同My_first(小@_@小)
Shift: TShiftState);
begin
if Key = VK_RETURN then
begin
Key := 0;
KeyBd_Event(VK_TAB, 0, 0, 0);
end;
end;
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids;type
TForm23 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form23: TForm23;implementationuses UserJoin_Modulefrm;{$R *.DFM}procedure TForm23.BitBtn1Click(Sender: TObject);
begin
Close;
end;procedure TForm23.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;procedure TForm23.FormCreate(Sender: TObject);
begin
DataModule1.Query1.DatabaseName:=ExtractFilePath(Paramstr(0))+'DatabaseFile\';
//ShowMessage(DataModule1.Query1.DatabaseName);
DataModule1.DataSource1.DataSet:=DataModule1.Query1;
DataModule1.Query1.Close;
DataModule1.Query1.SQL.Clear;
DataModule1.Query1.SQL.Add('Select * from Lottery_Table.DB');
//showmessage(DataModule1.Query1.Text);
DataModule1.Query1.Open;
end;
procedure TForm23.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
if not (ActiveControl is TDBGrid) then
begin
Key:=#0; //忽略
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
selectedindex:=0;
end;
end;procedure TForm23.FormDestroy(Sender: TObject);
begin
Form23:=nil;
end;end.