Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
11. Jun 2009
Hallo Lannes,
ich habe mal Dein Beispiel ausprobiert und es funktioniert wunderbar. Genau so habe ich es mir vorgestellt. Danke Dir nochmals. Ich werde mir das Beispiel jetzt näher zur Gemüte führen und es in mein bestehendes Programm einbauen.
Danke auch nochmal an die anderen Helfer.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
11. Jun 2009
Hallo Chemiker,
die doppelten Nodes zu finden ist kein Problem. Schaue nochmals in die Beschreibung von Beitrag #3. Dort habe ich alles genau beschrieben.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
11. Jun 2009
Das Ereignis OnEdited wird doch nach dem Editeren aufgerufen. Ich habe jetzt mal folgendes probiert :
if TreeNodeSearch(Node.Parent, S) <> nil then
begin
case MessageBox(0, PChar(rsDuplicateEntry), PChar(rsDuplicateEntryTitle), MB_ICONQUESTION or MB_YESNO) of
idYes: begin
PostMessage(Self.Handle, WM_NOTIFY, TVN_BEGINLABELEDIT, 0);
Node.Text := S;
end;...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
10. Jun 2009
Ok, danke. Aber erst muss ich es hinbekommen mit der Änderung.
Aber das müsste doch schon der Aufruf node.editedtext erledigen oder ?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
10. Jun 2009
Hallo Satty67,
danke erstmal für Deine Antwort. Nur leider funktioniert es nicht. Die Funktion "GetUniqueNodeText" die Du gepostet hast, verstehe ich, aber weiss nicht, wie Sie bei meinem Problem weiterhelfen kann. Ich beschreibe nochmal, was ich machen möchte :
Ich gebe den Befehl eine neue Node anzulegen. Der TreeView geht in den Editiermodus und es kann der Name eingegeben werden....
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
10. Jun 2009
Hallo zusammen,
ich stehe vor dem Problem, dass ich in einem Zweig von einem TreeView doppelte Einträge verhindern möchte. Dazu habe ich den folgenden Versuch angestellt mit dem Ereignis OnEdited :
procedure TMainForm.TV_CategoryEdited(Sender: TObject; Node: TTreeNode;
var S: string);
begin
// To search for a duplicated tree node
if TreeNodeSearch(Node.Parent, S) <> nil then
...