www.pudn.com > Desktop-Manager.rar > Unit5.pas, change:2005-05-14,size:2988b


unit Unit5; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, jpeg, ExtCtrls, StdCtrls,ShellAPI; 
 
type 
  TForm5 = class(TForm) 
    Image1: TImage; 
    Label1: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    Label4: TLabel; 
    Label5: TLabel; 
    Label6: TLabel; 
    Label7: TLabel; 
    Label8: TLabel; 
    Label9: TLabel; 
    Label10: TLabel; 
    procedure Label4Click(Sender: TObject); 
    procedure Label5Click(Sender: TObject); 
    procedure Label6Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
    procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
    procedure Label5MouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
    procedure Label6MouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
    procedure FormClick(Sender: TObject); 
    procedure Image1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form5: TForm5; 
  sign1,sign2,sign3:boolean; 
implementation 
 
{$R *.dfm} 
 
procedure TForm5.Label4Click(Sender: TObject); 
begin 
  ShellExeCute(Form5.Handle,nil,'Http://delphi.freemai.com',nil,nil,SW_SHOWNORMAL); 
end; 
 
procedure TForm5.Label5Click(Sender: TObject); 
begin 
  ShellExeCute(Form5.Handle,nil,'Http://www.delphibox.com',nil,nil,SW_SHOWNORMAL); 
end; 
 
procedure TForm5.Label6Click(Sender: TObject); 
begin 
  ShellExeCute(Form5.Handle,nil,'Http://www.baidu.com',nil,nil,SW_SHOWNORMAL); 
end; 
 
procedure TForm5.FormCreate(Sender: TObject); 
begin 
  sign1:=false; 
  sign2:=false; 
  sign3:=false; 
end; 
 
procedure TForm5.FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
  if(((sign1) or sign2) or sign3) then 
  begin 
    sign1:=false; 
    Label4.Font.Size:=10; 
    Label4.Font.Color:=clBlue; 
 
    sign2:=false; 
    Label5.Font.Size:=10; 
    Label5.Font.Color:=clBlue; 
     
    sign3:=false; 
    Label6.Font.Size:=10; 
    Label6.Font.Color:=clBlue; 
  end; 
end; 
 
procedure TForm5.Label4MouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
  if not sign1 then 
  begin 
    Label4.Font.Size:=10; 
    Label4.Font.Color:=clRed; 
    sign1:=true; 
  end; 
end; 
 
procedure TForm5.Label5MouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
  if not sign2 then 
  begin 
    Label5.Font.Size:=10; 
    Label5.Font.Color:=clRed; 
    sign2:=true; 
  end; 
end; 
 
procedure TForm5.Label6MouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
  if not sign3 then 
  begin 
    Label6.Font.Size:=10; 
    Label6.Font.Color:=clRed; 
    sign3:=true; 
  end; 
end; 
 
procedure TForm5.FormClick(Sender: TObject); 
begin 
  close; 
end; 
 
procedure TForm5.Image1Click(Sender: TObject); 
begin 
  close; 
end; 
 
end.