Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit UnitGameHelp;
- interface
- uses
- Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
- Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls,
- Vcl.Imaging.jpeg, Vcl.ExtCtrls;
- type
- TFormGameHelp = class(TForm)
- pgInformation: TPageControl;
- SheetHelp: TTabSheet;
- SheetStrategy: TTabSheet;
- mmHelp: TMemo;
- ImageStrategy: TImage;
- SheetOptions: TTabSheet;
- mmOptions: TMemo;
- procedure FormClose(Sender: TObject; var Action: TCloseAction);
- private
- public
- end;
- var
- FormGameHelp: TFormGameHelp;
- implementation
- {$R *.dfm}
- procedure TFormGameHelp.FormClose(Sender: TObject; var Action: TCloseAction);
- begin
- FormGameHelp.Hide;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement