frmhelp.pas

来自「phonectrl是一款利用手机遥控电脑的软件」· PAS 代码 · 共 71 行

unit frmHelp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, StdCtrls;

type
  TFHelp = class(TForm)
    pnl1: TPanel;
    img1: TImage;
    lblInfo: TLabel;
    lblKey: TLabel;
  private
    { Private declarations }
  public
    procedure LoadHelp;
    { Public declarations }
  end;

var
  FHelp: TFHelp;

implementation

uses UntComm;

{$R *.dfm}

{ TFHelp }

procedure TFHelp.LoadHelp;
var
  strHelpMsg: string;
begin
  if SelectApp in [appOne..appTen] then
  begin
    strHelpMsg := Format(strHelpMessage, [
      KeyGroups[Ord(SelectApp)].Description[0],
      KeyGroups[Ord(SelectApp)].Description[1],
      KeyGroups[Ord(SelectApp)].Description[2],
      KeyGroups[Ord(SelectApp)].Description[3],
      KeyGroups[Ord(SelectApp)].Description[4],
      KeyGroups[Ord(SelectApp)].Description[5],
      KeyGroups[Ord(SelectApp)].Description[6],
      KeyGroups[Ord(SelectApp)].Description[7],
      KeyGroups[Ord(SelectApp)].Description[8],
      KeyGroups[Ord(SelectApp)].Description[9],
      KeyGroups[Ord(SelectApp)].Description[10],
      KeyGroups[Ord(SelectApp)].Description[11],
      KeyGroups[Ord(SelectApp)].Description[12],
      KeyGroups[Ord(SelectApp)].Description[13],
      KeyGroups[Ord(SelectApp)].Description[14],
      KeyGroups[Ord(SelectApp)].Description[15],
      KeyGroups[Ord(SelectApp)].Description[16],
      KeyGroups[Ord(SelectApp)].Description[17],
      KeyGroups[Ord(SelectApp)].Description[18],
      KeyGroups[Ord(SelectApp)].Description[19],
      KeyGroups[Ord(SelectApp)].Description[20],
      KeyGroups[Ord(SelectApp)].Description[21],
      KeyGroups[Ord(SelectApp)].Description[22],
      KeyGroups[Ord(SelectApp)].Description[23],
      KeyGroups[Ord(SelectApp)].Description[24]
      ]);
    lblKey.Caption := strHelpMsg;
  end;
end;

end.