Le self et les (), c'est juste pour la lisibilité du code... je m'y suis habitué avec Java
pour ce qui est de GetImageSysList, voilà le code :
procedure TExplorerTreeView.getImageSysList;
var
sfi: TSHFileInfo;
SysIL: UInt;
begin
// retourne un handle sur la liste d'images système
SysIL := SHGetFileInfo('', 0, sfi, SizeOf(TSHFileInfo),
SHGFI_ICON or SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
if SysIL <> 0 then
begin
ListIcones.Handle := SysIL;
ListIcones.ShareImages := true;
end;
end;
si je rajoute dans la méthode create
Self.Items := TTreeNodes.create(Self);
juste avant le Self.Items.BeginUpdate, l'erreur se retrouve sur Self.Items := (...);
mais c'est sur que c'est pas GetImageSysList : ça se voit bien quand j'execute en pas à pas...
[edtdd]--Message édité par Georges Moustaki--[/edtdd]