mythread.~pas

自己用API编写的端口通讯

unit MyThread;

interface
uses
    Classes,Dialogs,windows,SysUtils;

type
    LightAllBoxThread = Class (TThread)
//    public
//       constructor  Create(CreateSuspended: Boolean);
    protected
       procedure Execute; override;
    end;

implementation
uses
    TestControl;
{ LightAllBoxThread }


procedure LightAllBoxThread.Execute;
var
  i,j:integer;
begin
  inherited;
  for i:=0 to 15 do
  begin
      for j:=0 to Form1.FUnitMaxNumber-1 do
      begin
          if (Self.Terminated=True) then
          begin
               break;
          end;
          if not (Form1.FCabinetControler.LighterStoreUnit(Form1.ComboBoxCabinet.ItemIndex,
                       i,j)) then
          begin
              ShowMessage('点亮失败');
              break;
          end;
          Sleep(1000);
      end;
  end;
  Form1.ButtonQuery.Enabled:=True;
  Form1.ButtonOpenOneBox.Enabled:=True;
  Form1.ButtonOpenAllBox.Enabled:=True;
  Form1.ButtonStopLightAllUnit.Enabled:=False;
  Form1.ButtonLightOneUnit.Enabled:=True;
  Form1.ButtonLightOneBox.Enabled:=True;
  Form1.ButtonQuery.Enabled:=True;
  Form1.ButtonLightAllUnit.Enabled:=True;
  Form1.ButtonStopLightAllUnit.Enabled:=False;
  Form1.ButtonStopLightOneBox.Enabled:=False;
  Form1.ButtonOpenAllBox.Enabled:=True;
  ShowMessage('点亮所有抽屉的所有单元结束');
end;

end.