taskjdt.pas

服务信息管理系统

unit taskjdt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, GIFCtrl, StdCtrls, ComCtrls, Animate, ExtCtrls, Gauges, mythread;

const
  WM_ThreadDoneMsg = WM_User + 8;

type
  Tfrmtaskjdt = class(TForm)
    Panel1: TPanel;
    RxGIFAnimator1: TRxGIFAnimator;
    Label1: TLabel;
    Label2: TLabel;
    Panel2: TPanel;
    Gauge1: TGauge;
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    MyThread1: TMyThread;
    Thread1Active: boolean;
    procedure ThreadDone(var AMessage: TMessage); message WM_ThreadDoneMsg; // Message to be sent back from thread when its done
  public
    { Public declarations }
    procedure jdshow(jdwidth: Integer);
    procedure messageshow1(message1: string);
    procedure messageshow2(message2: string);
  end;

var
  frmtaskjdt: Tfrmtaskjdt;
  task_messagelx: string;
implementation

{$R *.dfm}

procedure Tfrmtaskjdt.FormShow(Sender: TObject);
begin
  if Copy(task_messagelx, 1, 1) = '1' then
    Label1.Visible := True
  else
    Label1.Visible := False;
  if Copy(task_messagelx, 2, 1) = '1' then
    Label2.Visible := True
  else
    Label2.Visible := False;
  if Copy(task_messagelx, 3, 1) = '1' then
    begin
      RxGifAnimator1.Visible := True;
      RxGifAnimator1.Animate := True;
    end
  else
    begin
      RxGifAnimator1.Visible := False;
      RxGifAnimator1.Animate := False;
    end;
end;

procedure Tfrmtaskjdt.jdshow(jdwidth: Integer);
begin
  Gauge1.Progress := jdwidth;
end;

procedure Tfrmtaskjdt.messageshow1(message1: string);
begin
  Label1.Caption := message1;
  Label1.Refresh;
end;

procedure Tfrmtaskjdt.messageshow2(message2: string);
begin
  Label2.Caption := message2;
  Label2.Refresh;
end;

procedure Tfrmtaskjdt.ThreadDone(var AMessage: TMessage);
begin
  if ((MyThread1 <> nil) and (MyThread1.ThreadID = cardinal(AMessage.WParam))) then
    begin
      Thread1Active := False;
    end;
end;

procedure Tfrmtaskjdt.FormDestroy(Sender: TObject);
begin
  if (MyThread1 <> nil) and (Thread1Active = true) then
    begin
      MyThread1.Terminate;
      MyThread1.WaitFor;
    end;
end;

procedure Tfrmtaskjdt.FormCreate(Sender: TObject);
begin
  if (MyThread1 = nil) or (Thread1Active = false) then
    begin
      //MyThread1 := TMyThread.CreateIt(RxGifAnimator1);
      //Thread1Active := true;
    end;
end;

end.