upasswordform.pas

一个用Delpi写的视频聊天的SDK

unit uPassWordForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  uskinform,
  bsSkinCtrls, bsSkinBoxCtrls;

type
  TPassWordForm = class(TBaseSkinForm)
    bsSkinPanel1: TbsSkinPanel;
    Label2: TLabel;
    E_PassWord: TbsSkinPasswordEdit;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  PassWordForm: TPassWordForm;
implementation
{$R *.dfm}

procedure TPassWordForm.FormShow(Sender: TObject);
begin
  E_PassWord.Text := '';
  E_PassWord.SetFocus;
end;

end.