Treevieweintrag nicht löschen

[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;