新人问题

希望可以帮到你


procedure TForm1.Button1Click(Sender: TObject);

begin
     if edit2.Text='admin' then
        begin
            messagebox(0,'Ok','Ok',MB_ICONWARNING);
        end
      else
           begin
            messagebox(0,'error','error',Mb_iconwarning);
            edit1.Text:='' ;
            edit2.Text:='';

      end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     edit1.Text:='Admin';
     edit2.Text:='';
     edit2.PasswordChar:='*';
end;