L liangdewei Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-06 #2 找卷起千堆雪tyn吧,他对5分的问题最感兴趣了:)
卷 卷起千堆雪tyn Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-06 #3 首先明确IMAGE没有键盘事件,你需要自己添加~~~ 既然只有5分,就告诉你一个最简单的方法让IAMGE接收键盘事件~~ 按下回车键,在IMAGE输出一句话~~~ procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key=#13 then Image1.Canvas.TextOut(20,20,'卷起千堆雪'); end;
首先明确IMAGE没有键盘事件,你需要自己添加~~~ 既然只有5分,就告诉你一个最简单的方法让IAMGE接收键盘事件~~ 按下回车键,在IMAGE输出一句话~~~ procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key=#13 then Image1.Canvas.TextOut(20,20,'卷起千堆雪'); end;