fthread.xfm

East make Tray Icon in delphi

object Form1: TForm1
  Left = 363
  Top = 201
  Width = 243
  Height = 99
  HorzScrollBar.Range = 201
  VertScrollBar.Range = 79
  ActiveControl = Button1
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = fbsSingle
  Caption = 'JvThread Demo'
  Color = clButton
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 0
  ParentFont = False
  Position = poDesktopCenter
  Scaled = False
  OnDestroy = FormDestroy
  PixelsPerInch = 113
  object Label1: TLabel
    Left = 132
    Top = 24
    Width = 51
    Height = 18
    Caption = 'Job1 Stats'
  end
  object Label2: TLabel
    Left = 200
    Top = 24
    Width = 1
    Height = 18
  end
  object Label3: TLabel
    Left = 132
    Top = 58
    Width = 51
    Height = 18
    Caption = 'Job2 Stats'
  end
  object Label4: TLabel
    Left = 200
    Top = 58
    Width = 1
    Height = 18
  end
  object Button1: TButton
    Left = 36
    Top = 18
    Width = 75
    Height = 25
    Caption = 'Start Job 1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 36
    Top = 54
    Width = 75
    Height = 25
    Caption = 'Start Job 2'
    TabOrder = 1
    OnClick = Button2Click
  end
  object JvThread1: TJvThread
    Exclusive = True
    RunOnCreate = True
    FreeOnTerminate = False
    OnExecute = JvThread1Execute
    Left = 6
    Top = 6
  end
  object JvThread2: TJvThread
    Exclusive = True
    RunOnCreate = True
    FreeOnTerminate = False
    OnExecute = JvThread2Execute
    Left = 6
    Top = 44
  end
end