unit ExternalLinkingUnit;

interface

uses
  TradeIdeasGenericConnector2Proj1_TLB,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TExternalLinkingWindow = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FConnector : TTradeIdeasGenericConnector2X;

  public
    // Let the user reconfigure stuff.
    Procedure ShowMeNow;

    // Automatically shows the window if required.
    Procedure SendSymbol(Const Symbol : String);
  end;

var
  ExternalLinkingWindow: TExternalLinkingWindow;

implementation

{$R *.dfm}

    Procedure TExternalLinkingWindow.ShowMeNow;
      Begin
        Show;
        If WindowState = wsMinimized Then
          WindowState := wsNormal
      End;

    Procedure TExternalLinkingWindow.SendSymbol(Const Symbol : String);
      Begin
        FConnector.Symbol := Symbol;
        FConnector.Send;
        // Try sending before checking the window count.  Sending will verify
        // the windows in the list, and may remove old ones.
        If FConnector.WindowCount = 0 Then
          ShowMeNow
      End;

  Procedure TExternalLinkingWindow.FormCreate(Sender: TObject);
    Begin
      FConnector := TTradeIdeasGenericConnector2X.Create(Self);
      FConnector.Parent := Self;
      FConnector.Visible := True;
      FConnector.Align := alClient
    End;

end.