Korrekter Syntax für ShellListViewOnChange??

[Piro]

Guten Abend,

ich erstelle zu Laufzeit ein ShellListView und will diesem nun das OnChange Ereignis zu weisen. Bloß ich bekomme es nicht. Mit onDblClick geht es.

Die Typedefinition:

Delphi-Quellcode:

type
  Tfrm_todo = class(TForm)
    ...
    procedure ShellListViewOnDblClick(Sender: TObject);
    procedure ShellListViewOnChange(Sender: TObject; Node: TTreeNode);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

ShellListView erstellen und Ereignisse zu weisen:

Delphi-Quellcode:

procedure Tfrm_todo.CreateShellListView;
begin
 ShellListView := TShellListView.Create(Self);
 ShellListView.Parent := frm_todo.ts_anhang;
 ShellListView.Root := 'C:\';
 ShellListView.ViewStyle := vsReport;
 ShellListView.Sorted := True;
 ShellListView.Top := 75;
 ShellListView.Left := 3;
 ShellListView.Width := 554;
 ShellListView.Height := 310;
 ShellListView.OnDblClick := ShellListViewOnDblClick;
 ShellListView.OnChange   := ShellListViewOnChange;
end;

procedure Tfrm_todo.ShellListViewOnDblClick(Sender: TObject);
begin
  if ShellListView.Selected <> nil then
    ShellExecute(0,'open',PChar(ShellListView.SelectedFolder.PathName),nil, nil, sw_ShowNormal);
end;

procedure Tfrm_todo.ShellListViewOnChange(Sender: TObject; Node: TTreeNode);
begin
 ShowMessage(ShellListView.Root);
end;

Ich hatte auch schon:

Zitat:

procedure Tfrm_todo.ShellListViewOnChange(Sender: TObject);

Aber dies ging auch nicht.

Ich hoffe einer von euch sieht den Fehler.

Gruß, Sven

[Christian Seehase]

Moin Sven,

also in D7 hat das ShellListView-OnChange drei Parameter, nicht zwei...

[Piro]

Kannst du sie mir auch nennen, bitte? Ich finde sie nicht.

[Piro]

Hat sich erledigt. Danke für den Hinweis. Jetzt weiß ich auch wie man danach sucht.

ShellListViewOnChange(Sender: TObject; Listitem: TListItem; ItemChange: TItemChange); Danke nochmal.

[Christian Seehase]

Moin Sven,

das einfachste dürfte, in so einem Fall, sein, sich eine entsprechende Kompo auf das Formular zu legen, die Ereignisprozedur über den OI zu erzeugen.
Die Kompo kann man dann ja wieder löschen