habe seit Monaten so nen komischen Bug, dann wollte ich ne Demo machen ( um diese zu melden ), aber in der Demo kommt dieser Bug nicht.
http://tinypic.com/player.php?v=19tava&s=5" onclick="window.open(this.href);return false;
Bei klicken der TreeView werden nur 2 Actions.Enabled true/false mehr nicht

Code: Alles auswählen
procedure TMainForm.ConnectionsTreeClick(Sender: TObject);
var
NodeData : PConnectionTreeData;
Node :PVirtualNode;
ConnectionEdit, ConnectionDelete : Boolean;
begin
Node := ConnectionsTree.FocusedNode;
if Node = nil then Exit;
NodeData := ConnectionsTree.GetNodeData(Node);//Change Actions.Enable
ConnectionEdit:=false;
ConnectionDelete:=false;
case NodeData^.FType of
ctConnection : begin
ConnectionEdit:=true;
ConnectionDelete:=true;
end;
ctSchema : begin
//DoSomething
end;
ctCatalog: begin
//Also
end;
end;
ConnectionEditAction.Enabled:=ConnectionEdit;
ConnectionDeleteAction.Enabled:=ConnectionDelete;
end;