|
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.
¤ Dauer der Verarbeitung: 0.15 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
