FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if(KEY=VK_F2)then Form2.ShowModal; end; end. var Form2: TForm2; ...
確定! 回上一頁