unit_about.pas

学习delphi一段时间了

unit Unit_About;

interface

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

type
  TFrm_About = class(TForm)
    Shape1: TShape;
    Image1: TImage;
    Label1: TLabel;
    Quit_Btn: TSpeedButton;
    Label2: TLabel;
    Label3: TLabel;
    Image2: TImage;
    procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Quit_BtnClick(Sender: TObject);
    procedure Label3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_About: TFrm_About;

implementation

{$R *.dfm}

procedure TFrm_About.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
     SC_DRAGMOVE:Longint=$F012; //无标题栏拖动窗口
begin
     ReleaseCapture;
     SendMessage(Handle,WM_SYSCOMMAND,SC_DRAGMOVE,0);
end;

procedure TFrm_About.Quit_BtnClick(Sender: TObject);
begin
     Close;
end;

procedure TFrm_About.Label3Click(Sender: TObject);
begin
    Shellexecute(handle,nil,pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);
end;

end.