form_reddesicionl.~pas

双色球分析软件

unit Form_RedDesicionL;

interface

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

type
  TForm_RedDesicion = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Button3: TButtonExCtl;
    Button1: TButtonExCtl;
    Button2: TButtonExCtl;
    Button4: TButtonExCtl;
    Image3: TImage;
    ButtonExCtl1: TButtonExCtl;
    procedure Image2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure ButtonExCtl1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  protected
     procedure WMNCHitTest(var msg:TWMNCHitTest);message WM_NCHITTEST;
  end;

var
  Form_RedDesicion: TForm_RedDesicion;

implementation

{$R *.dfm}
uses common,Form_RedFenXiL,Form_techAnalyseL,Form_DataInputL,U_Form_Blue;
procedure TForm_RedDesicion.WMNCHitTest(var msg:TWMNCHitTest);
var
    MousePt:TPoint;
    CaptionRect:TRect;
begin
    inherited;
    CaptionRect:=Rect(Form_RedDesicion.Left,Form_RedDesicion.Top,700,40);
    MousePt:=Point(msg.XPos,msg.YPos);
    MousePt:=ScreenToClient(MousePt);
    if PtInRect(CaptionRect,MousePt) then
    begin
       msg.Result:=HTCaption;
    end;
end;
procedure TForm_RedDesicion.Image2Click(Sender: TObject);
begin
     CloseForm(handle);
end;

procedure TForm_RedDesicion.FormCreate(Sender: TObject);
begin
     ShowPloyForm(image1.Picture.Bitmap,handle);
     Form_RedDesicion.Top:=10;
     s_BeginID:='6106';
     s_EndID:='6133';
end;

procedure TForm_RedDesicion.Button3Click(Sender: TObject);
begin
     if Form_RedFenXi=nil then
     begin
        Form_RedFenXi:=TForm_RedFenXi.Create(Application);
        Form_RedFenXi.Show;
     end
     else
        Form_RedFenXi.Show;
end;

procedure TForm_RedDesicion.Button4Click(Sender: TObject);
begin
     if Form_TechAnalyse=nil then
     begin
        Form_techAnalyse:=TForm_TechAnalyse.Create(Application);
        Form_TechAnalyse.Show;
     end
     else
        Form_TechAnalyse.Show;
end;

procedure TForm_RedDesicion.ButtonExCtl1Click(Sender: TObject);
begin
     if Form_DataInput=nil then
     begin
        Form_DataInput:=TForm_DataInput.Create(Application);
        Form_DataInput.Show;
     end
     else
        Form_DataInput.Show;
end;

procedure TForm_RedDesicion.Button1Click(Sender: TObject);
begin
     if Form_Blue=nil then
     begin
        Form_Blue:=TForm_Blue.Create(Application);
        Form_Blue.Show;
     end
     else
        Form_Blue.Show;
end;

end.