Query를 사용하여 Data를 Select한 후, 정의된 Pointer에 맞게끔 데이타를 넣고

TreeView에 Add하였습니다. 아래 코딩처럼요.



procedure TForm1.TreeViewShow;

begin

Query.Close;

Query.SQL.Add('Select * From Test');

Query.Open;



TreeView1.Items.Clear;

RootNode := TreeView1.Items.Add(nil,'Root');

while not Query1.EOF do begin

New(MRPtr);

MRPtr^.ML0 := Query1.Fields[0].asInteger;

MRPtr^.ML1 := Query1.Fields[1].asInteger;

MRPtr^.ML2 := Query1.Fields[2].asInteger;

MRPtr^.Name := Query1.Fields[3].asString;



if Query1.Fields[0].asInteger <> 0 then

MyNode1 := TreeView1.Items.AddChildObject(RootNode,MRPtr^.Name, MRPtr);

.....

.....



Next;

end;



TreeView1.FullExpand;

end;



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Dispose(MRPtr);

end;



그런데 Form의 OnShow이벤트에 위와 같이 작성한 함수를 호출했을 때는 아무 이상이 없는데, DB에 새로운 데이타를 insert 한 후, TreeView를 Refresh하기 위해 위의 함수를 다시 한번 호출하면 TreeView의 내용이 이상하게 나옵니다.

(그러니까, 아까의 내용이 Clear가 되지 않는다든지, TreeView의 내용이 선택이 되지 않는다든지...)



제가 뭘 잘못한걸까요?

그런데 똑같은 함수를 다른 Form에서 만들어서 사용했는데, 거기는 아직까지 이상이 없는 것 같네요.

한번 살펴봐 주시기 바랍니다.

홍지선 wrote:

> TextGrid 에서 입력을 할때

> 숫자의 경우 오른쪽으로 정렬하고 입력할때도 오른쪽부터

> 해야 되는데 어떻게 하면 되는지?

> 아시는분은...

> 입력 마스크는 어떻게 주는지도 알려주세요...

> 부탁합니다.

>



그리드에서 텍스트를 입력할때 내부적으로 에디터를 만들어서 쓰는걸로

알고 있습니다. 그러다면 그 에디터를 어떻게하든 오른쪽 으로 텍스트가

정렬되게 해야 하는거죠.... 상당히 복잡해 지네요...



procedure TForm1.FormCreate(Sender: TObject);

begin

CreateWindowEx(WS_EX_CLIENTEDGE, 'EDIT', '', WS_VISIBLE or WS_CHILD or ES_RIGHT, 10, 10, 100, 20, Handle, 0, HInstance, nil);

//CreateWindow('EDIT', '', WS_VISIBLE or WS_CHILD or ES_RIGHT, 10, 10, //100, 20, Handle, 0, HInstance, nil);

end;



처럼 하면 불편하나마... 오른쪽 정렬의 텍스트에디터는 구현이 됩니다.

밑에 주석표시는 입체감이 필요없을때 사용하시면 되고요.



밑의 주석으로 표시한 부분을 콤포넌트화 해서 그리드입력시 사용하는 에디

터로 지정하면 가능할것도 같아요....^^;



아니면 윈도우스타일을 바꾸는 함수를 사용하여 실행시 그리드에디터의 속성을

바꾸시던지요... SetClassLong..., 등등의 함수가 있는걸로 압니다...

자세한건 윈도우 API 를 참고하세요~



그리고 마스크는 델파이 도움말을 보면 아주 친절하게 나와 있습니다~

New로 할당한 메모리를 FormClose에서 해제하면 안되죠..



TreeView의 OnDeletion Event를 작성하시고

아래와 같이 코딩하시면...



procedure TreeView1.OnDeletion(Sender: TObject; Node: TTreeNode);

begin

Dispose(MRPtr의 형(Node.Data));

end;



이렇게 해야 Clear 메소드를 호출할 때 New로 할당한 메모리를 자동으로 해제해 주죠.



그럼...



궁금이 께서 말씀하시기를...

> Query를 사용하여 Data를 Select한 후, 정의된 Pointer에 맞게끔 데이타를 넣고

> TreeView에 Add하였습니다. 아래 코딩처럼요.

>

> procedure TForm1.TreeViewShow;

> begin

> Query.Close;

> Query.SQL.Add('Select * From Test');

> Query.Open;

>

> TreeView1.Items.Clear;

> RootNode := TreeView1.Items.Add(nil,'Root');

> while not Query1.EOF do begin

> New(MRPtr);

> MRPtr^.ML0 := Query1.Fields[0].asInteger;

> MRPtr^.ML1 := Query1.Fields[1].asInteger;

> MRPtr^.ML2 := Query1.Fields[2].asInteger;

> MRPtr^.Name := Query1.Fields[3].asString;

>

> if Query1.Fields[0].asInteger <> 0 then

> MyNode1 := TreeView1.Items.AddChildObject(RootNode,MRPtr^.Name, MRPtr);

> .....

> .....

>

> Next;

> end;

>

> TreeView1.FullExpand;

> end;

>

> procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

> begin

> Dispose(MRPtr);

> end;

>

> 그런데 Form의 OnShow이벤트에 위와 같이 작성한 함수를 호출했을 때는 아무 이상이 없는데, DB에 새로운 데이타를 insert 한 후, TreeView를 Refresh하기 위해 위의 함수를 다시 한번 호출하면 TreeView의 내용이 이상하게 나옵니다.

> (그러니까, 아까의 내용이 Clear가 되지 않는다든지, TreeView의 내용이 선택이 되지 않는다든지...)

>

> 제가 뭘 잘못한걸까요?

> 그런데 똑같은 함수를 다른 Form에서 만들어서 사용했는데, 거기는 아직까지 이상이 없는 것 같네요.

> 한번 살펴봐 주시기 바랍니다.

>