盒子论坛 v2.1

如题，代码如下：

implementation
var
names:array of string;

procedure TForm1.Button2Click(Sender: TObject);
var
pmyfile:textfile;
pstr:string;
I: Integer;
begin
assignfile(pmyfile,'namexxx.txt')    ;
reset(pmyfile);
i:=0 ;

while not eof(pmyfile) do
begin
readln(pmyfile,pstr);
next;
i:=i+1;
end;
closefile(pmyfile);
setlength(names,i);
showmessage(inttostr(length(names)));

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
p:Tpoint;
begin
getcursorpos(p);
case Key of
vk_space:
    begin
      if rzbutton1.Caption = '按空格键开始抽取' then
         begin
         timer1.Enabled:=true;
         rzbutton1.Caption := '按空格键停止抽取' ;
         end
      else if (p.X >=500) and (rzbutton1.Caption = '按空格键停止抽取')  then
          begin
          timer1.Enabled :=false ;
          messagebox(0,PChar(rzdblabel1.Caption),'提示',MB_OK) ;
          rzbutton1.Caption := '按空格键开始抽取' ;
          end
          else   if (p.X <500) and (rzbutton1.Caption = '按空格键停止抽取')  then
          begin
          timer1.Enabled :=false ;
          rzdblabel1.Caption:='某公司，某人，111111';
          messagebox(0,PChar(rzdblabel1.Caption),'提示',MB_OK) ;
          rzbutton1.Caption := '按空格键开始抽取' ;
          end;

    end;
vk_f2: button2.Click;
vk_f1: button1.click;
end;

end;
----------------------------------------------
-

作者：

ying32 (唯有此生)	▲▲▲▲▲	-
	普通会员

2017/5/28 19:38:52

1楼：

如果当前焦点在button2上，然后Form的KeyPreview不为true时肯定就会这样了，需要将keypreview设置为true,优先处理
----------------------------------------------
一个热爱delphi的人,Golang GUI库。 --我的博客--

作者：

guistory (鬼故事)	▲▲▲▲▲	-
	普通会员

2017/5/31 8:54:26

2楼：

我现在Form的KeyPreview为true也出现这种状况
----------------------------------------------
-

作者：

beibeili (beibeili)	★☆☆☆☆	-
	普通会员

2017/5/31 16:44:23

3楼：

你的代码中vk_space段中好像没有调用button2.click的代码呀！
是键入F2调用button2.click
----------------------------------------------
-

信息

登陆以后才能回复