|
검색해 보니 나오더군요 ^^;;;;;
그래서 대충 한칸 올리는건 했는데
똑같이 했는데 왜 한칸 내리는 건 안되는지 모르겠네요..
tr_ScanSide 가 TTreeView 콤포넌트의 이름입니다..
//================================================
void __fastcall TForm1::btn_UpClick(TObject *Sender)
{
if(!tr_ScanSide->Selected)
return;
TNodeAttachMode AttachMode;
TTreeNode *destNode, *selNode;
if(tr_ScanSide->Selected->Index == 0)
return;
destNode = tr_ScanSide->Selected->GetPrev();
selNode = tr_ScanSide->Selected;
AttachMode = naInsert;
selNode->MoveTo(destNode, AttachMode);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_DownClick(TObject *Sender)
{
if(!tr_ScanSide->Selected)
return;
TNodeAttachMode AttachMode;
TTreeNode *destNode, *selNode;
if(tr_ScanSide->Selected->Index == tr_ScanSide->Items->Count)
return;
destNode = tr_ScanSide->Selected->GetNext();
selNode = tr_ScanSide->Selected;
AttachMode = naInsert;
selNode->MoveTo(destNode, AttachMode);
}
//==============================================================================
|