Quelle  StatusThread.pas   Sprache: Delphi

unit StatusThread;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Utilities, jpeg, ExtCtrls, Menus, ToolWin,
  Buttons, Math, StrUtils, ImgList, Frame11, Printers, Chart,
  CheckLst, Clipbrd, ComCtrls, DateUtils, Graphs, Natural;

type
  TStatusThread = class(TThread)
  private
    { Déclarations privées }
  protected
    procedure Execute; override;
    public
      Tx:^TStatusBar;
      Px:^PChar;
      Stp:boolean;
  end;

implementation


procedure TStatusThread.Execute;
begin
  while Not Stp do begin
    sleep(50);
    Tx.SimpleText:=Px^;
  end;
  //Suspend;
  Terminate;
end;

{------------------------------------------------------------------}
{-                                                                -}
{-   Ende dieser Quelle                                           -}
{-                                                                -}
{------------------------------------------------------------------}
end.