쇼핑몰 관리
DB와 연동하여 로그인 후 관리자용 화면으로 넘어가야 합니다.
하지만, 초보라...
누구에게 물어볼 사람도 없고 죽겠습니다. 고수님들의 많은 지도 부탁 드립니다.
그리고, 일반적으로 사용하는 폼설계에 대해서 알고 싶습니다.
예를 들어 로그인폼에서 어떻게 설정해주고, 대부분 MDI를 사용하는데.. MDI를 이렇게 사용하면 좋다는...
죄송합니다. 지금 한 한달째 고생하고 있습니다. 한부분 풀어두면 한부분이 막히네요...
문제가 생기는 것은 아래와 같습니다. 최대한 자세히 옮기여고 노력했는데.. 어떨지 모르겠습니다.
로그인 폼에서
Application.CreateForm(TfMain,fMain);
frm_Login.Visible:=false;
frm_Login.Free;
Application.Run;
메인 폼에서 -- MDIChild폼 부르기
function TfMain.CreateFMenuChild(const fName : String): boolean;
var
tempFlag : boolean;
begin
tempFlag:=true;
if MDIChildCount>0 then
begin
if MDIChildren[0].name=fname then
begin
MDIChildren[0].Show;
end
else begin
MDIChildren[0].Close;
tempFlag:=false;
end
end
else begin
tempFlag:=false;
end;
CreateFMenuChild:=tempFlag;
end;
procedure TfMain.Menu1_1Click(Sender: TObject);
var
flag:boolean;
child:TfMenu1_1;
begin
flag:=CreateFMenuChild('fMenu1_1');
if flag=false then
begin
child:=TfMenu1_1.Create(Application);
end;
end;
procedure TfMain.Menu1_2Click(Sender: TObject);
var
flag:boolean;
child:TfMenu1_2;
begin
flag:=CreateFMenuChild('fMenu1_2');
if flag=false then
begin
child:=TfMenu1_2.Create(Application);
end;
end;
메인폼 FormStyle : fsMDIForm
서브폼 FormStyle : fsMDIChild 입니다.
그런데... Child 폼을 부르면... 이런 에러가...
Project pBos.exe raised exception class ElnvalidOperation with message 'Cannot create form. no MDI forms are currently active', Process stopped. Use stop or run to continue.
델파이를 포기하라는 말 같기도 하구.. ^^
그럼 잘 좀 부탁 드립니다.
현재
이부분에서 에러가 나는거 같네요
만들지도 않았는데 멀 닫냐 그런거 같아요
그리고 function에 MDIChildren[0] 부분이 좀 이상하네요
자식 폼이 2~3개 열려있으면 어떻게 비교를 하죠??