Class TExpertDesktop (unit XDesk) |
Inherits from
TForm
procedure eXpertDesktopAddInMenuItemClick(Sender: TObject);
==============================================================
procedure FormClose(Sender: TObject; var Action: TCloseAction);
if Stayontop1.
procedure Stayontop1Click(Sender: TObject);
==============================================================
eXpertDesktopAddInMenu : TxdkAddInMenu;
eXpertDesktopAddInMenuItem : TxdkAddInMenuItem;
Pages : TPageControl;
procedure eXpertDesktopAddInMenuItemClick(Sender: TObject);
==============================================================
procedure FormClose(Sender: TObject; var Action: TCloseAction);
if Stayontop1.Checked then
ExpertDesktop.FormStyle:=fsNormal
else
ExpertDesktop.FormStyle:=fsStayOnTop;
Stayontop1.Checked:=not Stayontop1.Checked;
procedure Stayontop1Click(Sender: TObject);
==============================================================
eXpertDesktopAddInMenu : TxdkAddInMenu;
eXpertDesktopAddInMenuItem : TxdkAddInMenuItem;
Pages : TPageControl;