Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
procedure TForm1.DeleteButtonClick(Sender: TObject); var node : TTreeNode; mess, str : string; key_stat : integer; begin Node := Treeview1.Selected; if Assigned(Node) then begin str := Node.Text; mess := 'Are you sure that you want to delete the'; Case Node.ImageIndex of 15 : mess := mess + ' folder ' + '"' + str + '"?' +#13+ 'All folders, subfolders, items and subitems will be permanently' +#13+ 'deleted.' +#13; 17 : mess := mess + ' item ' + '"' + str + '"?' + #13; end; with Application do begin NormalizeTopMosts; key_stat := MessageBox(pchar(mess), 'Confirm Deletion', MB_YESNO); RestoreTopMosts; end; if key_stat = 7 then Exit; TreeView1.Items.Delete(Treeview1.Selected); end else ShowMessage('Select a folder in the treeview first.'); end;