helps.pas

一个不错的信息管理系统

unit helps;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids,shellapi, ExtCtrls;

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label8Click(Sender: TObject);
    procedure Label8MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label9Click(Sender: TObject);
    procedure Label9MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label10Click(Sender: TObject);
    procedure Label10MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label12Click(Sender: TObject);
    procedure Label12MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label11Click(Sender: TObject);
    procedure Label14Click(Sender: TObject);
    procedure Label14MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label11MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
form4.Close;
end;

procedure TForm4.Label1Click(Sender: TObject);
begin
shellexecute(handle,'open',pchar('http://www.borland.com/'),nil,nil,sw_shownormal);
end;

procedure TForm4.Label4Click(Sender: TObject);
begin
shellexecute(handle,'open',pchar('http://community.borland.com/'),nil,nil,sw_shownormal);
end;

procedure TForm4.Label2Click(Sender: TObject);
begin
shellexecute(handle,'open',pchar('http://www.borland.com/delphi/index.html'),nil,nil,sw_shownormal);
end;
procedure TForm4.Label5Click(Sender: TObject);
begin
shellexecute(handle,'open',pchar('http://www.borland.com/devsupport/delphi/'),nil,nil,sw_shownormal);
end;

procedure TForm4.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label1.Font.Color:=rgb(0,0,255);
end;
procedure TForm4.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label4.Font.Color:=rgb(0,0,255);
end;

procedure TForm4.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label2.Font.Color:=rgb(0,0,255);
end;

procedure TForm4.Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label5.Font.Color:=rgb(0,0,255);
end;

procedure TForm4.Label8Click(Sender: TObject);
begin
shellexecute(handle,'open',pchar('mailto:[e-mail] '),nil,nil,sw_shownormal);
end;

procedure TForm4.Label8MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label8.Font.Color:=rgb(0,0,255);
end;

procedure TForm4.Label9Click(Sender: TObject);
begin
shellexecute(handle,'open',pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);
end;

procedure TForm4.Label9MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label9.Font.Color:=rgb(0,0,255);
end;

procedure TForm4.Label10Click(Sender: TObject);
begin
shellexecute(handle,'open',pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);
end;

procedure TForm4.Label10MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label10.Font.Color:=rgb(0,0,255);
end;

procedure TForm4.Label12Click(Sender: TObject);
begin
shellexecute(handle,'open',pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);
end;

procedure TForm4.Label12MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label12.Font.Color:=rgb(0,0,255);
end;

procedure TForm4.Label11Click(Sender: TObject);
begin
shellexecute(handle,'open',pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);
end;

procedure TForm4.Label14Click(Sender: TObject);
begin
shellexecute(handle,'open',pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);
end;

procedure TForm4.Label14MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label14.Font.Color:=rgb(0,0,255);
end;

procedure TForm4.Label11MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label11.Font.Color:=rgb(0,0,255);
end;

procedure TForm4.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label1.Font.Color:=rgb(0,0,0);
label4.Font.Color:=rgb(0,0,0);
label2.Font.Color:=rgb(0,0,0);
label5.Font.Color:=rgb(0,0,0);
label8.Font.Color:=rgb(0,0,0);
label9.Font.Color:=rgb(0,0,0);
label10.Font.Color:=rgb(0,0,0);
label11.Font.Color:=rgb(0,0,0);
label12.Font.Color:=rgb(0,0,0);
label14.Font.Color:=rgb(0,0,0);
end;
end.