开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
BIconsF.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

BIconsF.pas：源码内容
  1. unit BIconsF;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Menus, StdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     MainMenu1: TMainMenu;
  12.     BorderIcons1: TMenuItem;
  13.     SystemMenu1: TMenuItem;
  14.     MinimizeBox1: TMenuItem;
  15.     MaximizeBox1: TMenuItem;
  16.     Help1: TMenuItem;
  17.     btnHelp: TButton;
  18.     procedure SetIcons(Sender: TObject);
  19.     function FormHelp(Command: Word; Data: Integer;
  20.       var CallHelp: Boolean): Boolean;
  21.     procedure btnHelpClick(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.   end;
  26. var
  27.   Form1: TForm1;
  29. implementation
  31. {$R *.DFM}
  33. procedure TForm1.SetIcons(Sender: TObject);
  34. var
  35.   BorIco: TBorderIcons;
  36. begin
  37.   (Sender as TMenuItem).Checked :=
  38.     not (Sender as TMenuItem).Checked;
  39.   if SystemMenu1.Checked then
  40.     BorIco := [biSystemMenu]
  41.   else
  42.     BorIco := [];
  43.   if MaximizeBox1.Checked then
  44.     Include (BorIco, biMaximize);
  45.   if MinimizeBox1.Checked then
  46.     Include (BorIco, biMinimize);
  47.   if Help1.Checked then
  48.     Include (BorIco, biHelp);
  49.   BorderIcons := BorIco;
  50. end;
  52. function TForm1.FormHelp(Command: Word; Data: Integer;
  53.   var CallHelp: Boolean): Boolean;
  54. begin
  55.   Caption := 'Help requested at ' + TimeToStr (now);
  56.   Result := False;
  57. end;
  59. procedure TForm1.btnHelpClick(Sender: TObject);
  60. begin
  61.   BorderIcons := [biSystemMenu, biHelp];
  62.   SystemMenu1.Checked := True;
  63.   MinimizeBox1.Checked := False;
  64.   MaximizeBox1.Checked := False;
  65.   Help1.Checked := True;
  66. end;
  68. end.