unit6.pas

来自「是用delphi与sql一块作的」· PAS 代码 · 共 106 行

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,shellapi, StdCtrls, ExtCtrls, ComCtrls;

type
  Tgy = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Memo1: TMemo;
    Button2: TButton;
    Panel1: TPanel;
    RichEdit1: TRichEdit;
    Timer1: TTimer;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label2MouseEnter(Sender: TObject);
    procedure Label2MouseLeave(Sender: TObject);
    procedure Label1MouseEnter(Sender: TObject);
    procedure Label1MouseLeave(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gy: Tgy;

implementation

{$R *.dfm}

procedure Tgy.Button1Click(Sender: TObject);
begin
shellexecute(0,'open','msinfo32.exe',nil,nil,sw_showdefault);
end;

procedure Tgy.Label1Click(Sender: TObject);
begin
shellexecute(0,'open','mailto:[e-mail]',nil,nil,sw_showdefault);
end;
procedure Tgy.Timer1Timer(Sender: TObject);
begin
if
richedit1.Top<=-(panel1.Height) then
begin
richedit1.Top:=(panel1.Height);
end
else
begin
richedit1.Top:=richedit1.Top-2;
end;
end;

procedure Tgy.FormClose(Sender: TObject; var Action: TCloseAction);
begin
timer1.Enabled:=false;
end;

procedure Tgy.FormShow(Sender: TObject);
begin
timer1.Enabled:=true;
richedit1.Top:=panel1.Top;
end;

procedure Tgy.Label2Click(Sender: TObject);
begin
shellexecute(self.Handle,'open','http://blog.sina.com.cn/rzlzb',nil,nil,sw_show);
end;

procedure Tgy.Label2MouseEnter(Sender: TObject);
begin
label2.Font.Color:=clblue;
label2.Font.Style:=[fsbold,fsitalic,fsunderline];

end;

procedure Tgy.Label2MouseLeave(Sender: TObject);
begin
label2.font.Color:=clblack;
label2.font.Style:=[];
end;

procedure Tgy.Label1MouseEnter(Sender: TObject);
begin
label1.Font.Color:=clblue;
label1.Font.Style:=[fsbold,fsitalic,fsunderline];
end;

procedure Tgy.Label1MouseLeave(Sender: TObject);
begin
label1.font.Color:=clblack;
label1.font.Style:=[];
end;

end.