cbmacos.~pas

来自「界面防真_100％扔掉第三方控件,完全自主的界面开发」· ~PAS 代码 · 共 78 行

////////////////////////////////////////////////////////////////////////////
//  FileName:    CBMacOS                                                //
//  Author  :   Wink.zow                                                  //
//  Date    :  21/12/2002                                                 //
////////////////////////////////////////////////////////////////////////////

unit CBMacOS;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls;

type
  TMacOS = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Panel2: TPanel;
    Image5: TImage;
    procedure Image1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image4DblClick(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
     Max : Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MacOS: TMacOS;

implementation

{$R *.dfm}

procedure TMacOS.Image1Click(Sender: TObject);
begin
  SendMessage(Handle,WM_CLOSE,0,0);
end;

procedure TMacOS.Image2Click(Sender: TObject);
begin
  if (Max) then
 begin
     ShowWindow(handle,SW_Normal);
     Max := False;
 end
 else
 begin
     ShowWindow(handle,SW_Maximize);
     Max := True;
 end;
end;

procedure TMacOS.Image4DblClick(Sender: TObject);
begin
 Image2Click(Sender);
end;

procedure TMacOS.Image3Click(Sender: TObject);
begin
   ShowWindow(handle,SW_Minimize);
end;

procedure TMacOS.FormCreate(Sender: TObject);
begin
 Max := False;
end;

end.