TreeView ... itemclick nicht vorhanden?!

[marius86]

Hi

Ich hab hier grad ein Tutorial..

Nun soll ich folgendes Eingeben:

procedure Fenster.xyzItemClick(Sender.....


Allerdings kommt immer die Meldung: [Error] Unit1.pas(116): Undeclared identifier: 'xyzItemClick'


Komisch, das ereigniss ItemClick steht auch nicht im Inspektor.


Ist das im Tutorial etwa falsch oder wie?


gruß

[ibp]

versuch es mit OnClick-Event!

[marius86]

Zitat von ibp:

versuch es mit OnClick-Event!

Hi

Das ganze soll aber folgendes machen:

Wenn man auf ein Item des TreeViews klickt, soll rechts der Inhalt angezeigt werden...

Hab es nun mal mit onClick gemacht wie du meintest:

Delphi-Quellcode:

procedure TMainWindow.folderClick(Sender: TObject;Button: TMouseButton; Node: TTreeNode; const Pt: TPoint);
begin
Aktualisieren(Node);
end;

Und oben unter

Type habe ich

procedure folderClick(Sender: TObject;Button: TMouseButton; Node: TTreeNode; const Pt: TPoint);

eingefügt....


Jetzt kommt aber wenn ich ein Item anklicke eine Access Violation

[ibp]

war auch ein fehler: onclick ist für das gesamte steuerelement

entweder du nimmst onchange oder onmousedown!

schau doch mal selber im oi unter ereignisse! und dann hilf dir weiter mit f1 !

[marius86]

Hi

Komisch, bekomme immer eine Access Violation:

Delphi-Quellcode:

procedure TMainWindow.folderMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer; Node: TTreeNode; const Pt: TPoint);
begin
Aktualisieren(Node);
end;

Oben im Type-Abschnitt:

Delphi-Quellcode:

    procedure folderMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer;Node: TTreeNode; const Pt: TPoint);

[ibp]

also das onmousedown erignis hat eine andere deklarination:

Code:

type TMouseEvent = procedure (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) of object;

wie gesagt schau dir dach mal die hilfe in delphi an, zu erreichen unter f1!!!

[marius86]

Hi

Ja sorry, das hat er automatisch gemacht... und das mit of object geht nicht, er sagt "; exceptet but OF found"...


Aber wieso steht dann bitte in dem Tutorial (ist ein Delphi-Buch) Fenster.folderItemClick(Sender: TObject; Button: TMouseButton; Node: TTreeNode; const Pt: TPoint);


Das muss ja irgendwie gehen / richtig sein...

[ibp]

dann zeig doch mal deinen ganzen code...

[marius86]

Hi!

habs geschafft:

Delphi-Quellcode:

procedure TMainWindow.folderClick(Sender: TObject);
var
  Item: TTreeNode;
  ScreenPt, ClientPt: TPoint;
  HT: THitTests;
  dir: String;
begin
Item := folder.Selected;
// dir := '';
while (Item <> nil) do
begin
   dir := dir + '' + Item.Text;
   Item := Item.Parent;
   dir :=  AnsiReplaceStr(dir, 'NuMail', '');
   ordneranzeige.Caption := dir;
   Aktualisieren(Folder.Selected);
end;

end;