Bonivur
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
GTA3
Цитата: теперь такой вопрос
вот пишу код
НЕПРЕРЫВНАЯ СТРОКА |
У меня все нормально работает и ошибки не дает. Только я так понимаю z это переменная типа string. Тогда все ОК. У тебя какую ошибку Дельфя пишет?
Добавлено:
unfreqient
Цитата: Подскажите как запретить в TreeView перетаскивать некоторые узлы.
На самом деле TcxDBTreeList, но важен принцип. |
Ставишь свойство DragMode твоего TreeView в dmAutomatic в Object Inspector'е и далее на события OnDragOver и OnDragDrop пишешь следующее:
procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
var
TargetNode,SourceNode:TTreeNode;
begin
TargetNode:=TreeView1.GetNodeAt(X,Y);
if (Sender=Source) and (TargetNode<>nil) then
begin
Accept:=true;
SourceNode:=TreeView1.Selected;
while (TargetNode.Parent<>nil) and (TargetNode<>SourceNode) do
TargetNode:=TargetNode.Parent;
if TargetNode=SourceNode then
Accept:=False;
end
else
Accept:=false;
end;
procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
TargetNode,SourceNode:TTreeNode;
begin
TargetNode:=TreeView1.GetNodeAt(X,Y);
if TargetNode<>nil then
begin
SourceNode:=TreeView1.Selected;
SourceNode.MoveTo(TargetNode,naAddChildFirst);
TargetNode.Expand(False);
TreeView1.Selected:=TargetNode;
end;
end;
----------
Что будет стоить тысяча слов когда важна будет крепость руки? (В.Цой) |
|
