Inherits from
TForm
constructor Create(AOwner: TComponent);
- Public declarations
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
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
constructor Create(AOwner: TComponent);
Public declarations
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
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