Hi,
ich schreibe gerade eine Treeview-Komponente,
die die Laufwerke und Ordner automatisch auflistet,
umbenennt, usw.
Dabei bin ich auf folgendes Problem gestoßen:
Die CanEdit-Funktion lässt sich ohne Probleme umschreiben,
aber was mache ich mit der eigentlichen Edit-Procedur,
wo der Ordner umbenannt wird?
Muss die Edit-Procedur umgeschrieben werden?
Wenn ja, in welcher Unit steckt "TAGTVITEMA"?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| function CanEdit(Node:TTreenode):boolean; override;
var s:string;
begin
result:=inherited CanEdit(Node);
if (node = nil)
or (node = nDesk)
or (node = nDrives)
or (node = nPersonal)
or (node = nRecent)
or (isDrive(node,s)) then result:=false;
end;
function Edit(Item:TAGTVITEMA):boolean; override;
begin
end; |
Moderiert von 
Christian S.: Code- durch Delphi-Tags ersetzt.
