定制远程登陆窗口

原创 2003年11月01日 22:54:00

本文最初发于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
  reg:TRegistry;
begin
  //Load the Options
  reg:=TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey(Software, True) then
   begin
      cbxServerIP.Items.CommaText:=Reg.ReadString('Server');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
    inherited;
  end;
end;
procedure TRemoteLogin.SaveOptions;
var
  reg:TRegistry;
begin
  //Load the Saved Options
  if (cbxServerIP.Items.IndexOf(cbxServerIP.Text)=-1) then
    cbxServerIP.Items.Insert(0,cbxServerIP.Text);
  reg:=TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey(Software, True) then
   begin
      Reg.WriteString('Server',cbxServerIP.Items.CommaText);
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
    inherited;
  end;
end;
function gxRemoteLoginDialog(var AUserName, APassword: string): Boolean;
begin
  with TRemoteLogin.Create(Application) do
  try
    Caption := '远程登录';
    LoadOptions;
    edtUserName.Text := AUserName;
    Result := False;
    if AUserName = '' then ActiveControl := edtUserName;
    if (   cbxServerIP.Items.Count=0) then
      cbxServerIP.ItemIndex:=-1
    else
      cbxServerIP.ItemIndex:=0;
    if ShowModal = mrOk then
    begin
      AUserName := edtUserName.Text;
      APassword := edtPassword.Text;
      frmMain.Connection.Host:=cbxServerIp.Text;
      Result := True;
      SaveOptions;
    end;
  finally
    Free;
  end;

end;
end.
最关键的一句是:
initialization
  RemoteLoginDialogProc := gxRemoteLoginDialog;
--

定制远程登陆窗口

  • zgqtxwd
  • zgqtxwd
  • 2008年04月30日 13:21
  • 125

定制命令行窗口

定制命令行窗口 By MikeFeng, QQ 76848502 用过FTERM没?用过TELNET没?是不是对上面彩色的文字和命令行式的操作记忆犹新?今天写了基于命令行的程序,因为以前没有用到过类似...
  • MikeFeng
  • MikeFeng
  • 2007年05月27日 17:08
  • 2493

RCP-定制-空白窗体

按下面的步骤可以实现: getInitialWindowPerspectiveId 返回 null initialize(IWorkbenchConfigurer configurer) ...
  • FlySpace
  • FlySpace
  • 2006年06月22日 11:16
  • 974

PL/SQL如何保存定制界面

PL/SQL分为安装和免安装版本,下面为plsql窗口定制保存 窗口菜单->保存面板菜单即可,如图...
  • leijie0322
  • leijie0322
  • 2017年02月08日 18:01
  • 230

(2)定制自己的IntelliJ IDEA

定制自己的IDEA定制自己的IDEA 前言 重点 快捷方式 插件 问题 后记前言前面已经说了,怎么去安装一个IntelliJ了,现在我们是时候定制自己的IntelliJ了。重点快捷方式作为一个有经验的...
  • cjm812752853
  • cjm812752853
  • 2016年04月26日 14:24
  • 787

C#自定义窗口形状

首先,设置窗体的背景从而建立窗体形状。   1.在窗体设计器中选中窗体使之获得焦点。   2.在属性对话框中进行如下设置:   ● 将FormBorderStyle...
  • shi020910
  • shi020910
  • 2013年03月16日 13:37
  • 2934

VC++6.0定制窗口的方法

  一、如何在多文档界面下去掉开始的子窗口 在多文档界面下,自动生成一个新的子窗口,而一个实际的应用系统往往是由用户操作后再生成新的窗口。为了去掉开始的子窗口,可在应用程序文件分析命令行的语句 Cco...
  • ziren235
  • ziren235
  • 2006年11月05日 14:15
  • 1405

Android 定制窗口背景

准确点说这里指的是window的背景,而不是Layout的背景。这两者是有本质上的区别的。       很多文章说的窗口背景色,其实就是指的根布局的背景色。所谓窗口,应该是根布局的宿主。把根布局做小...
  • fylz1125
  • fylz1125
  • 2012年02月02日 09:34
  • 1211

定制窗口消息处理函数

定制窗口消息处理函数     需要对一个已经建立的窗口的消息进行自己的处理时,可以提供一个消息处理函数,替换原来的消息处理函数。自己的处理完成后,再调用原来窗口的消息处理函数。 1、更...
  • YuHengZuo
  • YuHengZuo
  • 2018年01月15日 13:54
  • 39

Easyui 定制window窗口

Jquery Easyui 是一种基于JQuery的用户界面插件集合,在实际的开发种给我们带来了很大的便利,方便数据的直观展示等。  在实际的开发中,我们要使用easyui就需要先导入easyui的j...
  • zhangchun888
  • zhangchun888
  • 2015年10月27日 18:24
  • 794
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:定制远程登陆窗口
举报原因:
原因补充:

(最多只允许输入30个字)