mdi폼에는요 현제 mainmenu(메뉴바)가 있구요. 여기서 메뉴를 클릭하면
중복되지 않게 child폼을 띄우거든요.
근데 문제는 child폼의 pageControl의 tabsheet를 메뉴마다 다르게 처리하는부분에서 에러가 발생하더군요..
이를 어떻게 해결해야 할까요?
제꺼메뉴의 대략적인 구성을 살펴보면요
-----
- 계-
-----
합계1 <- 클릭하면 FRM_Child폼의 페이지콘트롤의 Tabsheet1가 보임다.
-----
합계2 <--- "" Tabsheet2 ""
-----
합계3 <--- "" Tabsheet3 ""
-----
소스를 보면요 다음과 같아요..
procedure TFRM_Main.N10Click(Sender: TObject);
var
i: Integer;
exist: Boolean;
begin
exist := False;
for i:= 0 to MDIChildCount -1 do
if MDIChildren[i] is TFRM_FMTMSS then
exist := True;
if exist = False then
begin
TFRM_Child.Create(Self);
FRM_Child.TabSheet2.Show; <-- 문제발생 위치...
end;
end;
=========================================================
위에서 에러발생하는것을 메뉴클릭시 발생하는
윈도우 메시지로 처리가 가능할까요?
가능하다면 메시지는 어떤게 발생하구 어떻게 받아서 사용할수
있을까요?... 초짜라...이런게 가능한건지두 몰것네요.. ^^
변수에 생성된 객체를 대입하는 부분이 없는거 같네요...
if exist = False then
begin
FRM_Child := TFRM_Child.Create(Self);
FRM_Child.TabSheet2.Show;
end;
^^ 항상즐코하세요...