mrwx_gy.pas

明日腾龙编修管理系统,对于做相关软件的朋友是一个非常好的参考

unit MRWX_GY;

interface

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

type
  TMR_WXGY = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Image2: TImage;
    procedure BitBtn1Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MR_WXGY: TMR_WXGY;

implementation

uses MR_WXFORM;

{$R *.DFM}
procedure TMR_WXGY.Label4Click(Sender: TObject);    //打开在线网络服务
begin
 ShellExecute(handle,nil,'http://www.MringRiSoft.com',nil,nil,sw_shownormal);//访问www.MringRiSoft.com
end;
procedure TMR_WXGY.Label4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
 label4.Font.Color:=clred;   //突出显示
end;
procedure TMR_WXGY.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
 label4.Font.color:=clblue;     //撤消突出显示
end;
procedure TMR_WXGY.BitBtn1Click(Sender: TObject);    //退出
begin
close;
end;
end.