아래는 로그인 소스입니다.

로그인시 여러분류가 있기때문에 LogIngubun이라는 콤보박스의 itemindex가 2인경우를 제외하고는 메인화면의 특정버튼을 disable해야합니다. 그런데...

메인화면의 FormShow할때

if Entrance.LogInGubun.ItemIndex = 2 then

버튼.enabled := true

else

버튼.enabled := false; 라는 코드를 넣었는데 잘 안되더라구요..

제가 넘 쉬운방법만을 생각하는지 초보인 저로써는 잘 모르겠읍니다..

그리고 다시 메인화면에서 로그인폼을 띄워서 여전히 특정버튼을 enable/disable 해야하는데

그 방법또한 ???

고수님들 도와주십시요....





unit LogIn;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Yislabel;



type

TEntrance = class(TForm)

LogINId: TEdit;

LogInPw: TEdit;

Button2: TButton;

Button3: TButton;

MRReqbt: TButton;

LogInReq: TButton;

LogInGubun: TComboBox;

YISLabel1: TYISLabel;

YISLabel2: TYISLabel;

YISLabel3: TYISLabel;

YISLabel4: TYISLabel;

Button1: TButton;

procedure LogInReqClick(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure MRReqbtClick(Sender: TObject);

procedure LogInGubunClick(Sender: TObject);

procedure Button1Click(Sender: TObject);



{ Private declarations }

public

{ Public declarations }

end;



var

Entrance:TEntrance;



implementation



uses Weblib,Regmaster, LostID, LostPasswd, ChargeU;



{$R *.DFM}



procedure TEntrance.LogInReqClick(Sender: TObject);



{var

i:Integer; }

begin

WebForm.REQ_USER_CONFIRM (LogInGubun.itemindex,LogInId.Text, LogInPw.Text);



{for i := 0 to ComponentCount - 1 do

begin

if ( Components[i] is TEdit ) then

begin



( Components[i] as TEdit ).Clear;

end;

end; }





end;



(*procedure TEnterance.LogInResult (Sender : TObject);

begin

if WebForm.GetMethod ='RES_USER_CONFIRM' then

LogInReq

end; *)

{if GetMethod = 'RES_USER_CONFIRM' then



ShowMessage = ('사용자 인증을 확인했읍니다. 업주POS 프로그램으로 들어갑니다');

begin

LogIn.close ;

end; }



procedure TEntrance.Button2Click(Sender: TObject);

begin

LI.show;

//if LI.ModalResult = mrOK then

//LI.close ;

end;



procedure TEntrance.Button3Click(Sender: TObject);

begin



LP.show;

//if LP.modalresult = mrOK then

//LP.close;

end;



procedure TEntrance.MRReqbtClick(Sender: TObject);

begin

MasterReg.show;

//if MasterReg.ModalResult = mrOK then

//MasterReg.close;

end;



procedure TEntrance.LogInGubunClick(Sender: TObject);

begin

if LogInGubun.Itemindex = 3 then

begin

MRReqbt.enabled := false;

end

end;



procedure TEntrance.Button1Click(Sender: TObject);

begin

close;

end;



end.