Treevieweintrag nicht löschen

[marabu]

Da ist kein Fehler in Delphi!
Der Fehler liegt eher in der Art, wie du löschst.
Poste ein Minimalprogramm (Form mit TreeView) mit dem dein Problem nachvollzogen werden kann und es wird dir sicher geholfen werden.

[Masterof]

Hallo!!

Ich habe das Projekt hochgeladen, mal sehen ob sich jetzt eine Lösung findet.
Master

[marabu]

Ich habe deinen Code ein wenig verbeult. Schau mal hin. Spiel damit rum. Sind nicht viele Zeilen. Vielleicht merkst du dann schon was du ändern kannst bzw. musst.

Grüße vom marabu

[Lannes]

Hallo,

Zitat von Waldteufel:

Hi.

@lannes: OnExit wird doch aufgerufen, sobald ein anderes Control den Fokus erhält. Und das ist der Fall, wenn man auf den Button klickt, also wird in dem Moment in dem du klickst der Button deaktiviert nix passiert

tschuldige, deine Bemerkung ist doch richtig im Bezug auf TreeView1Exit ,
hab da in TreeView1Exit was vergessen, jetzt aber richtig:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if TreeView1.Selected <> nil then 
    begin 
    TreeView1.Items.Delete(TreeView1.Selected); 
    Button1.Enabled := False; 
    end; 
end; 

procedure TForm1.TreeView1Enter(Sender: TObject); 
begin 
  if TreeView1.Items.Count > 0 then//Zugriffsfehler vermeiden 
    Button1.Enabled := True; 
end; 

procedure TForm1.TreeView1Exit(Sender: TObject); 
begin
  if activeControl <> Button1 then//<<<<<----Neu -------sonst wird onClick von Button1 nicht ausgeführt 
    Button1.Enabled := False; 
end;

[Masterof]

Hallo!!

danke nochmal, werde es morgen nochmal versuchen. Ich sage bescheid ob es richtig funktioniert hat.

Master