최영근 wrote:
> 안녕하세요 ?
>
> 프로그래밍 하다가 황당한 현상이 일어나 글을 올립니다.
> 간단한 자료 처리 프로그램이 (거래처 관리 용) 있는데
> 사용기간이 오래 되어 저장한 데이터가 많아져서
> 처음 실행했을때 로딩하는 시간이 좀 걸리더군요.
> 그래서 스플래쉬 폼을 프로젝트 소스에서 실행하는 방법으로
> 프로그램했는데 이상한 일이 발생하는군요.
>
> 화면 다이얼로그의 DBgrid 에서 DbGridDblClick 명령이
> 실행되지 않습니다. 또한 다이얼로그가 activate 할때
> 실행시킨 sellT.last (Dbgrid 의 포커스가 맨 마지막에 위치하도록 하는 명령)
> 명력이 먹질 않는군요.
>
> 물론 스플래쉬 폼을 제거하면 이상없이 잘 실행됩니다.
> 왜 그런 것일까요 ?
>
> 고수님들의 조언을 기대합니다.
안녕하세요~ 고수는 아니구요.
위의 내용만 보아서는 문제점을 지적해 드리기가 모호하거든요.
.dpr의 소스를 올려주실수는 없나요?
공개할 수 없다면, 일부분이라도 올려주시면
도움되어 드리도록 노력해 보겠습니다.
그럼~ 즐거운 프로그래밍~
> 안녕하세요 ?
>
> 답변해 주셔서 고맙습니다.
> 관련 소스들을 올립니다.
>
>
> (1) 우선 프로젝트 소스 입니다.
>
> =====================
>
> program MAN;
>
> uses
> Forms,
> Main in 'Main.pas' {MainForm},
>
> ......
>
> splash in 'splash.pas' {Splash_form};
>
> {$R *.RES}
>
> var
> i, j : integer;
>
> begin
> Application.Initialize;
>
> splash_Form := Tsplash_Form.Create(Application);
> splash_Form.Show;
> splash_Form.update;
> for i := 0 to 400000000 do
> begin
> j := j+1 ;
> end;
> Application.CreateForm(TMainform, Mainform);
> splash_Form.hide;
> splash_Form.Free;
>
> .........
>
> Application.Title := '관리 프로그램';
> Application.CreateForm(TMainForm, MainForm);
>
> .........
>
> =====================
>
> (2) 스플래쉬 폼은
>
> BorderStyle bsNone 으로 설정된
> 보통 스플래쉬 폼 입니다.
>
> ====================
>
> (3) 실행되지 않는 부분입니다.
>
>
> procedure TDlg.FormActivate(Sender: TObject);
> begin
> VenderT.last;
> end;
>
>
> procedure TDlg.DBGrid1DblClick(Sender: TObject);
> begin
> with venderT do
> begin
> YMDEdit.Text := FieldByName('YMD').AsString;
> .................
> end;
> end;
>
>
> =======================================================
>
> 구창민 wrote:
> > 최영근 wrote:
> > > 안녕하세요 ?
> > >
> > > 프로그래밍 하다가 황당한 현상이 일어나 글을 올립니다.
> > > 간단한 자료 처리 프로그램이 (거래처 관리 용) 있는데
> > > 사용기간이 오래 되어 저장한 데이터가 많아져서
> > > 처음 실행했을때 로딩하는 시간이 좀 걸리더군요.
> > > 그래서 스플래쉬 폼을 프로젝트 소스에서 실행하는 방법으로
> > > 프로그램했는데 이상한 일이 발생하는군요.
> > >
> > > 화면 다이얼로그의 DBgrid 에서 DbGridDblClick 명령이
> > > 실행되지 않습니다. 또한 다이얼로그가 activate 할때
> > > 실행시킨 sellT.last (Dbgrid 의 포커스가 맨 마지막에 위치하도록 하는 명령)
> > > 명력이 먹질 않는군요.
> > >
> > > 물론 스플래쉬 폼을 제거하면 이상없이 잘 실행됩니다.
> > > 왜 그런 것일까요 ?
> > >
> > > 고수님들의 조언을 기대합니다.
> >
> >
> > 안녕하세요~ 고수는 아니구요.
> >
> > 위의 내용만 보아서는 문제점을 지적해 드리기가 모호하거든요.
> >
> > .dpr의 소스를 올려주실수는 없나요?
> >
> > 공개할 수 없다면, 일부분이라도 올려주시면
> > 도움되어 드리도록 노력해 보겠습니다.
> >
> > 그럼~ 즐거운 프로그래밍~
답변이 늦어 죄송합니다.
먼저, Application.CreateForm(TMainForm, MainForm) 이 문장이
필요없이 한줄이 더 삽입되어 있네요.
그 외엔 말씀하신 증상이 나올만 한 잘못된 점을 찾을 수 가 없네요..
설령 위의 문장이 실제로 두줄로 작성을 하셨다고 해도,
그러한 에러가 나지는 않을 거 같은데.
위의 소스만 보아서는 잘못된 점을 지적드릴 수 가 없어서 안타깝습니다.
제가 옆에서 직접본다면 정말 좋겠습니다만..에궁...
그럼~ 즐거운 프로그래밍 하시길~