1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

[code:1:4f2d190a59]
procedure Tf_kategorien_artikel.Kategorieentfernen1Click(Sender: TObject);
begin
 if Treeview1.Selected.Level = 0 then
  begin
   If TreeView1.Parent = nil then
    begin
     //Eintrag aus Tabelle h_kat entfernen
{     Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Add('delete * from h_category where h_cat_id = :h_cat_id');
     Query1.Parameters.ParamByName('h_cat_id').Value := strtoint(l_h_cat_id.Caption');
     Query1.ExecSQL;}
     Treeview1.Selected.Delete;
{     l_h_cat_id.Caption := '';
     l_h_cat.Caption := '';}
    end
   else
    Showmessage('Unterkategorien vorhanden');
  end
 else
  begin
   if Treeview1.Selected.Level = 1 then
    begin
     If TreeView1.Selected.Parent = nil then
      begin
       //Eintrag aus Tabelle u_kat1 entfernen
{      Query1.Close;
       Query1.SQL.Clear;
       Query1.SQL.Add('delete * from u_category_1 where u_cat_id_1 = :u_cat_id_1');
       Query1.Parameters.ParamByName('u_cat_id_1').Value := strtoint(l_u_cat_id_1.Caption');
       Query1.ExecSQL;}
       Treeview1.Selected.Delete;
{      l_h_cat_id.Caption := '';
       l_h_cat.Caption := '';}
      end
     else
      Showmessage('Unterkategorien vorhanden');
    end;
  end;
[/code:1:4f2d190a59]					

1:

showmessage(TreeView1.Parent.Name);