|
定制远程登陆窗口(1)
本文最初发于UESTC一网深情bbs Delphi版 weck
2002-5-29
Midas的远程登陆窗口太简单了，不能让用户选择要连接的服务器的地址
不过好在 通过以下的方法你可以修改这个登陆窗口为你自己非常喜欢
的风格，当然也因此可以记录下别人的登陆密码哦
unit utLogIn;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, GraphiCS, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, dxCntner, dxEditor, dxExEdtr, dxEdLib,Registr
y,SConnect,DB;
const
Software='\Software\Pivot\Wages\1.0';
type
TRemoteLogin = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Panel2: TPanel;
Bevel2: TBevel;
Bevel1: TBevel;
edtUserName: TdxEdit;
edtPassWord: TdxEdit;
btnOk: TButton;
btnCancel: TButton;
cbxServerIP: TdXPickEdit;
private
{ Private declarations }
protected
FConnection:TSocketConnection;
procedure SaveOptions;
procedure LoadOptions;
public
{ Public declarations }
end;
var
RemoteLogin: TRemoteLogin;
function gxRemoteLoginDialog(var AUserName, APassWord: string): Boolean;
implementation
uses utMain;
{$R *.dfm}
procedure TRemoteLogin.LoadOptions;
var
|
