Class TF_Main (unit dde)

Inherits from

TForm

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

procedure btnDDECloseClick(Sender: TObject);


procedure btnDDEOpenClick(Sender: TObject);

clean up

procedure btnItemAddClick(Sender: TObject);


procedure DdeClientItemChange(Sender: TObject);

Core procedures of the workaround.

procedure edtItemEnter(Sender: TObject);

Display

procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure RemoveItem1Click(Sender: TObject);


procedure sbtQuitClick(Sender: TObject);

Clean up without destroying DDEList

destructor Destroy;

TList for storing the items.

procedure DdeClientProcess;

Since the Sender param is worthless, the handling has to happen 'manually' --> DdeClientProcess The flag DdeChangeExit provides security against endless looping

Properties

Events

Variables

btnDDEClose : TBitBtn;


btnDDEOpen : TBitBtn;


btnItemAdd : TBitBtn;


DdeClientConv : TDdeClientConv;


DdeClientItem : TDdeClientItem;


DDEPopup : TPopupMenu;


edtDDEService : TEdit;


edtDDETopic : TEdit;


edtItem : TEdit;


GroupBox1 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label5 : TLabel;


lblDDEStatus : TLabel;


Panel1 : TPanel;


RemoveItem1 : TMenuItem;


sbtQuit : TSpeedButton;


sgDDEReceive : TStringGrid;


StatusBar1 : TStatusBar;


DdeChangeExit : Boolean;


DdeClient : ^string;


DdeList : TList;

Private declarations


Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


procedure btnDDECloseClick(Sender: TObject);


procedure btnDDEOpenClick(Sender: TObject);

clean up


procedure btnItemAddClick(Sender: TObject);


procedure DdeClientItemChange(Sender: TObject);

Core procedures of the workaround...


procedure edtItemEnter(Sender: TObject);

Display


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure RemoveItem1Click(Sender: TObject);


procedure sbtQuitClick(Sender: TObject);

Clean up without destroying DDEList


destructor Destroy;

TList for storing the items...


procedure DdeClientProcess;

Since the Sender param is worthless, the handling has to happen 'manually' --> DdeClientProcess The flag DdeChangeExit provides security against endless looping


Properties


Events


Variables


btnDDEClose : TBitBtn;


btnDDEOpen : TBitBtn;


btnItemAdd : TBitBtn;


DdeClientConv : TDdeClientConv;


DdeClientItem : TDdeClientItem;


DDEPopup : TPopupMenu;


edtDDEService : TEdit;


edtDDETopic : TEdit;


edtItem : TEdit;


GroupBox1 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label5 : TLabel;


lblDDEStatus : TLabel;


Panel1 : TPanel;


RemoveItem1 : TMenuItem;


sbtQuit : TSpeedButton;


sgDDEReceive : TStringGrid;


StatusBar1 : TStatusBar;


DdeChangeExit : Boolean;


DdeClient : ^string;


DdeList : TList;

Private declarations