请问如何捕获按键事件？

Alvin_huai 2003-09-25 07:43:40

我的EDIT是动态生成的个数不定，而且很多，但我想在每一个EDIT上都产生一个事件并执行相应的函数，如判断在上面按下一个字符键就后，就调用相应的函数产生不同的输出！
请问如何实现啊！谢谢

...全文

42 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

dickeybird888 2003-09-26

打赏
举报

哈哈楼上说的对！

FrameSniper 2003-09-26

打赏
举报

var
EdtArray : Array of TEdit;

procedure MyEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ShowMessage('当前操作的Edit是:'+(Sender as TEdit).Name);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
vEdit:TEdit;
begin
SetLength(EdtArray,N); //N为长度
for I:=0 to N-1 do
begin
vEdit:=Tedit.Create(Self);
with vEdit do
begin
Tag:=I; //通过Tag属性判断当前操作的是哪个Edit
Name:='Edit'+IntToStr(I)
Parent := Self;
OnKeyDown:=MyEditKeyDown;
end;
EdtArray[I]:=vEdit;
end;
end;

Alvin_huai 2003-09-26

打赏
举报

请问能说的详细一些点不???急啊

delphiseabird 2003-09-26

打赏
举报

利用Sender

Alvin_huai 2003-09-26

打赏
举报

非常感谢大家！

Alvin_huai 2003-09-25

打赏
举报

非常感谢dickeybird888(于伟刚)个其他朋友，但我还有个问题，因为我是把动态EDIT存入了数组中的，但是我还想在按下按键是，能确认是哪个按键，即能把EditArray[i]的i能传下去，请问该怎么办呢？谢谢

wdsimon 2003-09-25

打赏
举报

都说了

kuki84 2003-09-25

打赏
举报

onkeypress

dickeybird888 2003-09-25

打赏
举报

你是不是指如何为动态生成的控件加入事件，我写了个例子，如下：
procedure TForm1.Button1Click(Sender: TObject);
var
ss:Tedit;
begin
ss:=Tedit.Create(self);
ss.parent := form1;
ss.OnKeyDown:=ssKeyDown;
ss.Show;
end;

procedure TForm1.ssKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
shomwssage(inttostr(key));
end;

FrameSniper 2003-09-25