onkeydown事件

Question

如何实现两次输入分别走两个分支程序? 
如:第一次,edit1.text:=20;
   第二次,edit2.text:10;
急..........

Answer 1

定义变量： isOne: boolean
在onKeyDown中
 isOne := not isOne;
 if isOne then  do one
 else  do other;

Answer 2

谢谢你!是这样的
当在onkeydown事件第一次输入时,走这人程序:
  with adoquery5 do
     begin
      insert;
      fieldvalues['khzd1']:=kh;
      fieldvalues['xmzd1']:=xm;
      fieldvalues['dwzd1']:=dw;
      fieldvalues['xhzd1']:=xh;
      fieldvalues['jrsjzd1']:=now;
      post;
      sj:=fieldvalues['jrsjzd1'];
     end ;
当第二次输入时走这个程序:
  with adoquery do
     begin
      insert;
      fieldvalues['khzd1']:=kh;
      fieldvalues['xmzd1']:=xm;
      fieldvalues['dwzd1']:=dw;
      fieldvalues['xhzd1']:=xh;
      fieldvalues['jrsjzd1']:=now;
      fieldvalues['jrsjzd1']:=sj;
      post;
     end ;
你看如何实现

Answer 3

定义变量： isOne: boolean
isOne 初值为 False
在onKeyDown中
 isOne := not isOne;
 if isOne then
 begin
  with adoquery5 do
     begin
      insert;
      fieldvalues['khzd1']:=kh;
      fieldvalues['xmzd1']:=xm;
      fieldvalues['dwzd1']:=dw;
      fieldvalues['xhzd1']:=xh;
      fieldvalues['jrsjzd1']:=now;
      post;
      sj:=fieldvalues['jrsjzd1'];
     end ;
 end
 else
 begin
  with adoquery do
     begin
      insert;
      fieldvalues['khzd1']:=kh;
      fieldvalues['xmzd1']:=xm;
      fieldvalues['dwzd1']:=dw;
      fieldvalues['xhzd1']:=xh;
      fieldvalues['jrsjzd1']:=now;
      fieldvalues['jrsjzd1']:=sj;
      post;
     end ; end;不过  干嘛要做这么奇怪的处理？
一下处理这个数据一下处理那个数据的。。

Answer 4

jadesan()兄:
我想做一个像内存一样的数据厍,你这样的程序永远有走'else'语句

Answer 5

定义全局变量啊，
怎么会永远‘Else’呢？
一次 True，一次 False的呀，，

Answer 6

procedure TForm1.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var
  isOne: boolean;begin
  isOne := not isOne;
 if isOne then   edit1.Text:=edit3.Text
 else   edit2.Text:=edit3.Text;
end;你看是不是类似于这样,它就不走else

Answer 7

var
  isOne: boolean;定义为全局变量.
procedure TForm1.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
{  var
  isOne: boolean;}不能加在这里!!!!!begin
  isOne := not isOne;
 if isOne then   edit1.Text:=edit3.Text
 else   edit2.Text:=edit3.Text;
end;

Answer 8

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  isone: boolean;//加在这里.......////
implementation{$R *.dfm}procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
begin
  isOne := not isOne;
 if isOne then   showmessage('T')
 else   showmessage('F')
end;end;end.