procedure TForm1.formkeypress(Sender: TObject; var Key: Char);
begin
if key = #114 then
form2.show;end;
begin
if key = #114 then
form2.show;end;
解决方案 »
- 怎么取windows的DNS,设置Ip地址,DNS???分不够可以在加
- 关于代码分离技术
- 哪位大侠有没有现成的将数据表数据转到文件的程序或控件,请赐教之!
- 哪里有reportmachine下载啊,一定给分
- 我想这应该是DELPHI的一个BUG。
- ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;columns没有申明??
- 请问哪里有《Delphi 5.X ADO/MTS/COM+高级程序设计篇-李维著》随书光盘下载,谢谢了~~
- ******怎样直接进入各自的CSDN?不用输入用户名和密码。
- 关于DELPHI按钮及edit的外观
- 如何实现按下一个button后程序显示帮助文件(.chm格式)中指定的某个主题?(无正文)
- 求SQL语句,高手们帮帮忙啊
- 求解delphi乱码问题
然后再加上这段代码
procedure TForm1.formkeydown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_F1 then
form2.show;end;
这样就可以了