J
jianglong
Unregistered / Unconfirmed
GUEST, unregistred user!
我在(DELPHI40)使用ShortCutToText( )函数,编译时提示:
[Error] tt.pas(31): Undeclared identifier: 'ShortCutToText'
这些代码还是从online help上照搬下来的,错在那里?,请大侠帮助
procedure TForm1.Edit1KeyDown(Sender: TObject
var Key: Word;
Shift: TShiftState);
begin
Listbox1.Items.Add('Edit1.KeyDown'+ShortCutToText(ShortCut(Key, Shift)));
end;
[Error] tt.pas(31): Undeclared identifier: 'ShortCutToText'
这些代码还是从online help上照搬下来的,错在那里?,请大侠帮助
procedure TForm1.Edit1KeyDown(Sender: TObject
var Key: Word;
Shift: TShiftState);
begin
Listbox1.Items.Add('Edit1.KeyDown'+ShortCutToText(ShortCut(Key, Shift)));
end;