delphi按键问题.....等待解决
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (shift>=[ssCtrl]) and (key=78) then
begin
application.MessageBox('按键正确,请执行下一步操作','提示',MB_ok);
end;
end;
怎样让按完Ctrl+N之后,执行下一步的操作,ctrl+N不给用.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (shift>=[ssCtrl]) and (key=78) and (flag=false) then
begin
flag = true;
application.MessageBox('按键正确,请执行下一步操作','提示',MB_ok);
end;
end;
运行的时候在flag=false处报错..请指教....刚学习delphi,谢谢!
flag:= false
这里是赋值不是判断！
谢谢,我已解决
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
我的程序中有一段更新某一条记录的语句：
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.text的值已经取得;
...
...
...
adoQuery1.sql.add('update 计划清单表 set 计划日 ......
