호야 wrote:

> 메인폼의 메인메뉴에 있는 "다른이름으로 저장"버튼을 누르면

> 서브폼에 있는 SaveDialog가 실행되도록 만들었습니다. 그런데 Access Violation Error가 뜹니다.

> fIn_Doc폼은 여러개가 뜹니다.

> procedure TfMainForm.NSaveAsClick(Sender: TObject);

> begin

> If Screen.Forms[1].Name = 'fIn_Doc' Then

> fIn_Doc.SaveDialog1.Execute //실제로는 이렇게

> Screen.Forms[1].SaveDialog1.Execute; ----> 이렇게 하고싶은데..

> end;

> //--------------------------------------------------------------------------------

> 메인메뉴에 있는 "Select All"버튼을 누르면 서브폼중 맨위에 있는 서브폼의

> pSelectAll라는 함수를 호출하는 것입니다.

> fIn_Doc폼이 여러개입니다.

> //-------------------------------------------------

> 메인폼

> procedure TfMainForm.nSelectClick(Sender: TObject);

> begin

> If Screen.Forms[1].Name = 'fIn_Doc' Then

> Begin

> Screen.Forms[1].pSelectAll; --->이렇게 하고싶은데 안되네요

> End;

> end;

> //-------------------------------------------------

> 서브폼

> procedure TfIn_Doc.pSelectAll;

> Begin

> StringGrid1.Selection.TopLeft.X := 0;

> StringGrid1.Selection.TopLeft.Y := 0;

> StringGrid1.Selection.BottomRight.X := StringGrid1.Colcout;

> StringGrid1.Selection.BootomRight.Y := StringGrid1.RowCount;

> End;

> //---------------------------------------------------------------------



안녕하세요.

if Screen.Forms[1]=fIn_Doc then

fIn_Doc.PselectAll;