procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = 112 then //112为F1键值 winexec(.chm) end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = 112 then //112为F1键值 winexec(.chm) end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = 112 then //112为F1键值 winexec(.chm) end; ------------------------ YES
要引用哪一个API类呢?大侠。
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = 112 then //112为F1键值 winexec(.chm) end;
Shift: TShiftState);
begin
if key = 112 then //112为F1键值
winexec(.chm)
end;
Shift: TShiftState);
begin
if key = 112 then //112为F1键值
winexec(.chm)
end;
Shift: TShiftState);
begin
if key = 112 then //112为F1键值
winexec(.chm)
end;
------------------------
YES
Shift: TShiftState);
begin
if key = 112 then //112为F1键值
winexec(.chm)
end;