BVB Source Codes

VCL interface controls the toolbar TmxOutlookBarPro v2.13 Show mxOutlookBarProAbout.pas Source code

Return Download VCL interface controls the toolbar TmxOutlookBarPro v2.13: download mxOutlookBarProAbout.pas Source code - Download VCL interface controls the toolbar TmxOutlookBarPro v2.13 Source code - Type:.pas
  1. // ****************************************************************************
  2. // * ABOUT BOX FOR MY COMPONENTS
  3. // ****************************************************************************
  4. // * Copyright 2002, Bitvad醩z Kft. Hungary . All Rights Reserved.
  5. // ****************************************************************************
  6. // * Date last modified: 11.10.2002
  7. // ****************************************************************************
  8.  
  9. Unit mxOutlookBarProAbout;
  10.  
  11. Interface
  12.  
  13. // *************************************************************************************
  14. // ** List of used units
  15. // *************************************************************************************
  16.  
  17. Uses
  18.   SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
  19.   StdCtrls, Buttons, ShellAPI, ExtCtrls;
  20.  
  21. Type
  22.   Tfrm_OutlookProAboutBox = Class( TForm )
  23.  
  24.     lbl_Copyright: TLabel;
  25.     Lbl_ComponentName: TLabel;
  26.     Label1: TLabel;
  27.     Label4: TLabel;
  28.     Label3: TLabel;
  29.     Panel1: TPanel;
  30.     btn_WebSite: TSpeedButton;
  31.     btn_Close: TSpeedButton;
  32.     Panel2: TPanel;
  33.     SpeedButton1: TSpeedButton;
  34.     Label2: TLabel;
  35.     Label7: TLabel;
  36.  
  37.     Procedure Panel2MouseDown( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer );
  38.     Procedure btn_CloseClick( Sender: TObject );
  39.     Procedure btn_WebSiteClick( Sender: TObject );
  40.     Procedure SpeedButton1Click( Sender: TObject );
  41.  
  42.   Private
  43.  
  44.   End;
  45.  
  46. Procedure ShowAboutBox( Const ComponentName: String );
  47.  
  48. // *************************************************************************************
  49. // ** End of Interface section
  50. // *************************************************************************************
  51.  
  52. Implementation
  53.  
  54. {$R *.DFM}
  55.  
  56. // *************************************************************************************
  57. // ** ShowAboutBox, 4/11/01 10:13:27 AM
  58. // *************************************************************************************
  59.  
  60. Procedure ShowAboutBox( Const ComponentName: String );
  61. Begin
  62.   With Tfrm_OutlookProAboutBox.Create( Application ) Do
  63.   Try
  64.     Lbl_ComponentName.Caption := ComponentName;
  65.  
  66.     ShowModal;
  67.   Finally
  68.     Free;
  69.   End;
  70. End;
  71.  
  72. Procedure Tfrm_OutlookProAboutBox.Panel2MouseDown( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer );
  73. Begin
  74.   ReleaseCapture;
  75.   Perform( WM_SYSCOMMAND, $F012, 0 );
  76. End;
  77.  
  78. Procedure Tfrm_OutlookProAboutBox.btn_CloseClick( Sender: TObject );
  79. Begin
  80.   Close;
  81. End;
  82.  
  83. Procedure Tfrm_OutlookProAboutBox.btn_WebSiteClick( Sender: TObject );
  84. Begin
  85.   ShellExecute( Application.Handle, Nil, 'www.maxcomponents.net', Nil, Nil, SW_SHOWNOACTIVATE );
  86. End;
  87.  
  88. Procedure Tfrm_OutlookProAboutBox.SpeedButton1Click( Sender: TObject );
  89. Begin
  90.   ShellExecute( Application.Handle, Nil, 'mailto:support@maxcomponents.net', Nil, Nil, SW_SHOWNOACTIVATE );
  91. End;
  92.  
  93. End.
  94.  
  95.  
downloadmxOutlookBarProAbout.pas Source code - Download VCL interface controls the toolbar TmxOutlookBarPro v2.13 Source code
Related Source Codes/Software:
Delphi personal pictures, contacts, financial, schedule management software - An Assistant software written in Delphi, it's call... 2012-02-18
CnPack Classic Edition component development kit v0.0.6.8 - A really good set of large development developed b... 2012-02-18
Delphi books management system - The DELPHI version of the picture management syste... 2012-02-18
Delphi data scheduled import program source code - A timed auto-import of data systems, you can set b... 2012-02-18
CnPack components of the Delphi development kit - CnPack people own a Delphi developed by third-part... 2012-02-18
Delphi-made LED display controls - A simple Delphi version of the LED display control... 2012-02-18
Electronic manufacturing multilayer Delphi ERP management system - Delphi development electronic manufacturing multil... 2012-02-18
Delphi private MSN style hint-like Windows TMsnPopup controls - Website from abroad to the Delphi environment cont... 2012-02-18
CoolTrayIcon tray icon control v.4.3.1 - The control used to display the icon in the task b... 2012-02-18
Delphi implementation of DbGridEh control automatically omit excess characters per line - In DELPHI using override the DBGridEh1DrawColumnCe... 2012-02-18
Ha gung hd network TV source [] more PCB - Ha gung high-definition television network based o... 2016-08-19
Taobao guest website V0.1 channel pure HTML code - The direct reference taobao guest channel made of ... 2016-08-19
Guangzhou gourmet food and beverage promotion system 2012 edition - Guangzhou gourmet food promotion system suitable f... 2016-08-19
Weiseditor v3.2.1 - Weiseditor is a free online text editor, powerful,... 2016-08-19
Light blue V1.0 contracted style of taobao guest program - Pure static HTML taobao guest program, can also be... 2016-08-19
jQuery EasyUI 1.5 - Technical QQ:838341952 jQuery EasyUI for Web devel... 2016-08-19
Businessman union receive dividends rebate v1.0 shopping mall system source code - Merchants Union right to bonus rebates shopping ma... 2016-08-19
Ray speed equipment v7.01 circulation system - To deal with the bar code printing, and incoming q... 2016-08-19
WebSpider blue spider web scraping v5.1 - WebSpider blue Spider Web page grabbing tools 5.1 ... 2016-08-19

 Back to top