DirextX编程

开发平台：

Delphi

Password.~pas：源码内容

							unit Password;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TFlatButtonUnit, StdCtrls, TFlatEditUnit;
type
  TPForm = class(TForm)
    Label1: TLabel;
    FlatEdit1: TFlatEdit;
    FlatButton1: TFlatButton;
    procedure FlatButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    Password:String;
    { Public declarations }
  end;
var
  PForm: TPForm;
implementation
{$R *.dfm}
procedure TPForm.FlatButton1Click(Sender: TObject);
begin
    Password:=FlatEdit1.Text;
    ModalResult:=mrOk;
end;
procedure TPForm.FormCreate(Sender: TObject);
begin
    Password:=FlatEdit1.Text;
end;
end.

						