pflcthread.pas

来自「unit Video interface uses Windo」· PAS 代码 · 共 48 行

unit PFlcTHread;

interface

uses
  Classes,
  windows,
  messages;

type
  TFlcHread = class(TThread)
  private
    { Private declarations }

  protected
    procedure Execute; override;
    procedure FlcIfEnd();
  public
    Flag: Boolean;
  end;

implementation

{ TFlcHread }

uses Playdlg_frm,
  MainPlay,
  Fontdlg_frm;

procedure TFlcHread.Execute;
begin
  { Place thread code here }
  repeat
    Synchronize(FlcIfEnd);
  until (Flag)
end;

procedure TFlcHread.FlcIfEnd;
begin
  if (PlayDlg.FLC.CurrentFrame = PlayDlg.FLC.TotalFrames) then
    begin
      Sleep(Fontdlg.AviDelay.Value);
      SendMessage(MainForm.handle, MY_FlcStop, 0, 0);
    end;
end;

end.