Q&A

  • 모달폼을 없애면서 판넬위에 선을 그리는데..
Modal_Form := TfStr_Link.Create(Application);

Modal_Form.Edit1.Text := S_Node;

Modal_Form.Edit2.Text := E_Node;

Modal_Form.ShowModal;

If Modal_Form.Create_Check Then

Begin

Inc(CoordIndex);

Coords(Modal_Form.Edit1.Text,Modal_Form.Edit2.Text,Modal_Form.Edit3.Text,'O','N');

End;

pDrawLine; ----->라인을 그리는 함수



위처럼 모달폼을 없애면서 라인을 그리면 모달폼이 있던 부분에는

선이 보이지안습니다.

어떻게 해야하죠?

고수님들의 조언을 부탁드립니다.





1  COMMENTS
  • Profile
    바다를향해 2001.05.19 00:17
    var

    t1, t2, t3: String;

    re: Boolean;

    begin

    Modal_Form := TfStr_Link.Create(Application);

    Modal_Form.Edit1.Text := S_Node;

    Modal_Form.Edit2.Text := E_Node;

    Modal_Form.ShowModal;

    re := Modal_Form.Create_Check;

    t1 := Modal_Form.Edit1.Text;

    t2 := Modal_Form.Edit2.Text;

    t3 := Modal_Form.Edit3.Text;

    Modal_Form.Update;

    Modal_Form.Hide;

    Modal_Form.Free;

    // Self.Update;

    If re Then Begin

    Inc(CoordIndex);

    Coords(t1, t2, t3, 'O', 'N');

    End;

    pDrawLine; ----->라인을 그리는 함수



    이렇게 해보면 어떨까여....^^...실행은 안해봤슴다...





    왕초보 wrote:

    > Modal_Form := TfStr_Link.Create(Application);

    > Modal_Form.Edit1.Text := S_Node;

    > Modal_Form.Edit2.Text := E_Node;

    > Modal_Form.ShowModal;

    > If Modal_Form.Create_Check Then

    > Begin

    > Inc(CoordIndex);

    > Coords(Modal_Form.Edit1.Text,Modal_Form.Edit2.Text,Modal_Form.Edit3.Text,'O','N');

    > End;

    > pDrawLine; ----->라인을 그리는 함수

    >

    > 위처럼 모달폼을 없애면서 라인을 그리면 모달폼이 있던 부분에는

    > 선이 보이지안습니다.

    > 어떻게 해야하죠?

    > 고수님들의 조언을 부탁드립니다.

    >

    >