[lmikle]

Сообщение от divizion

Ребят, что-то не получается сделать все красиво, кто-нибудь поможет сделать исходник в delphi 7 с комментариями?)) за вознаграждение конечно-же)

А что конкретно не получается?
Тебе нужен компонент, обеспечивающий авторизацию пользователя.
Для этого нужна форма диалога + некоторый код самого компонента.
Код компонента (его схему) тебе дали. Форму с 2 полями нарисуешь сам.

Код:

unit UserAuth;

interface

uses
  SysUtils, Classes;

type
  TUserAuth = class(TComponent)
  private
    { Private declarations }
    FUserName : String;
    FPassword : String;
  protected
    { Protected declarations }
  public
    { Public declarations }
    function Execute : Boolean;
  published
    { Published declarations }
    property UserName : String read FUserName write FUserName;
    property Password : String read FPassword write FPassword;
  end;

procedure Register;

implementation

uses
  UserAuthFrm;

procedure Register;
begin
  RegisterComponents('Samples', [TUserAuth]);
end;

{ TUserAuth }

function TUserAuth.Execute: Boolean;
begin
  With TUserAuthForm.Create(Nil) Do
    Try
      edUserName.Text := FUserName;
      edPassword.Text := FPassword;
      Result := ShowModal = mrOK;
      If Result Then
        Begin
          FUserName := edUserName.Text;
          FPassword := edPassword.Text;
        End;
    Finally
      Free;
    End;
end;

end.