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; ----->라인을 그리는 함수
위처럼 모달폼을 없애면서 라인을 그리면 모달폼이 있던 부분에는
선이 보이지안습니다.
어떻게 해야하죠?
고수님들의 조언을 부탁드립니다.
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; ----->라인을 그리는 함수
>
> 위처럼 모달폼을 없애면서 라인을 그리면 모달폼이 있던 부분에는
> 선이 보이지안습니다.
> 어떻게 해야하죠?
> 고수님들의 조언을 부탁드립니다.
>
>