You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
78 lines
1.6 KiB
Plaintext
78 lines
1.6 KiB
Plaintext
unit u_sys_messagedlg;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, bsSkinCtrls, BusinessSkinForm,shellapi,bsSkinTabs,ADODB,
|
|
StdCtrls;
|
|
|
|
type
|
|
Tfrm_sys_messagedlg = class(TForm)
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
bsSkinButton1: TbsSkinButton;
|
|
bsSkinButton2: TbsSkinButton;
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
Memo1: TMemo;
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
function GetSysTypes: Boolean;
|
|
function SetPrivilege(sPrivilegeName: AnsiString; bEnable: Boolean): Boolean;
|
|
procedure ExitWin32Sys(iFlags: Integer);
|
|
{ Private declarations }
|
|
public
|
|
msg:string;
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_sys_messagedlg: Tfrm_sys_messagedlg;
|
|
|
|
implementation
|
|
|
|
uses u_main, u_sys_relogin, my_sys_chat, u_tree_main, u_dxbar_main,
|
|
u_open_operation, u_open_code, u_open_info, u_open_report,
|
|
my_sys_function, u_sys_progress, u_data_share, u_sys_login;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_sys_messagedlg.ExitWin32Sys(iFlags: Integer);
|
|
begin
|
|
|
|
end;
|
|
|
|
function Tfrm_sys_messagedlg.GetSysTypes: Boolean;
|
|
|
|
begin
|
|
end;
|
|
|
|
function Tfrm_sys_messagedlg.SetPrivilege(sPrivilegeName: AnsiString;
|
|
bEnable: Boolean): Boolean;
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure Tfrm_sys_messagedlg.bsSkinButton1Click(Sender: TObject);
|
|
var MyPagecontrol:TbsSkinPageControl;
|
|
begin
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
procedure Tfrm_sys_messagedlg.bsSkinButton2Click(Sender: TObject);
|
|
begin
|
|
close;
|
|
end;
|
|
|
|
procedure Tfrm_sys_messagedlg.FormShow(Sender: TObject);
|
|
begin
|
|
Memo1.Lines.Clear;
|
|
Memo1.Lines.Add(msg);
|
|
end;
|
|
|
|
end.
|