TTreeView ed eliminazione TTreeNode

[Fabio]

Perché con lstHosts.Selected.selected fai riferimento ad un oggetto (lstHosts.Selected) che hai appena cancellato

Ma quello non scatta prima della procedura di cancellazione? Che legami hanno?
L'evento scatta solo quando clicco su un nodo della treeview PRIMA di premere il pulsante per l'eliminazione, abilita solamente il pulsante.

[Legolas]

Il fatto è che al momento della cancellazione del nodo l'evento viene generato di nuovo; a questo punto avviene l'errore. Prova a modificare la funzione così:

Codice: [Seleziona]

procedure TForm1.lstHostsSelectionChanged(Sender: TObject);
begin
  ShowMessage('sending 1');
  btnDeleteItem.Enabled:=lstHosts.Selected.Selected;
  ShowMessage('sending 2');
end;   

Tenendo conto di questo, ad esempio, così funziona:

Codice: [Seleziona]

procedure TForm1.lstHostsSelectionChanged(Sender: TObject);
begin
  if lstHosts.Selected <> nil then
    btnDeleteItem.Enabled:=lstHosts.Selected.Selected
  else
    btnDeleteItem.Enabled:=false;
end;   

[Fabio]

Come ho scritto sopra ho già trovato come farla funzionare con il codice

Codice: [Seleziona]

procedure TfrmMain.lstHostsSelectionChanged(Sender: TObject);
begin
  btnDeleteItem.Enabled:=not(lstHosts.Selected = nil);
end;

Volevo solo cercare di capire come mai quella che avevo usato la prima volta faceva collassare tutto ANCORA prima di cancellare il nodo.

Comunque non importa, grazie lo stesso.

[Legolas]

Come ho scritto sopra ho già trovato come farla funzionare con il codice

Codice: [Seleziona]

procedure TfrmMain.lstHostsSelectionChanged(Sender: TObject);
begin
  btnDeleteItem.Enabled:=not(lstHosts.Selected = nil);
end;

Sì, ma assegni la negazione di un'identità quando basterebbe assegnare la non-identità. Questa:

Codice: [Seleziona]

procedure TfrmMain.lstHostsSelectionChanged(Sender: TObject);
begin
  btnDeleteItem.Enabled:= lstHosts.Selected <> nil;
end;

è meno ridondante.

Volevo solo cercare di capire come mai quella che avevo usato la prima volta faceva collassare tutto ANCORA prima di cancellare il nodo.

Comunque non importa, grazie lo stesso.

Prova questo con il codice che dava errore, tanto per vedere che in effetti il nodo va a nil:

Codice: [Seleziona]

procedure TForm1.lstHostsSelectionChanged(Sender: TObject);
begin
  Form1.Caption := IntToStr(integer(pointer(lstHosts.Selected)));
  btnDeleteItem.Enabled := lstHosts.Selected.Selected;
end;   

Nella caption del form c'è l'indirizzo di memoria del nodo selezionato. Nel momento in cui viene cancellato, il valore va a 0 immediatamente prima di andare in SIGSEGV, indice del free del nodo.

[Fabio]

Ottimo grazie, ora mi è più chiaro.
Ho provato l'esempio che hai detto e fa come dici.

Grazie anche della precisazione dell'assegnazione.

Ciao.