[Delphi] Eigen componentje.

[Guillome]

Hoi.
Ik ben bezig met een eigen component.
Nu heb ik er 2 Classes in.
Een TListView en een TItems;
Maar hoe kan ik nu bijv. het volgende doen?

code:

  TMyItems = class(TListItems)
  public
    x : Integer;
    procedure Clear;
  end;

  TVirtualShellView = class(TListView)
  private
......
  public
    Items : TMyItems;
    Files : TStringList;
...
..
  end;

TMyItems.Clear;
Begin
  VirtualShellView.Files  // Dus dan wil ik hier variabelen en/of procedures van de TVirtualShellView opvragen
end;

hoe moet dat?

[Verwijderd]

Wat wil je nu precies weten?

TMyItems is niet gebaseerd op TVirtualShellView. In de klasse TMyItems zal je dus alleen de public functies / procedures / properties kunnen gebruiken en niet de private en protected.

[Guillome]

Wat ik wil weten staat in mijn 1e post hier
Hoe ik in een procedure van TMyListItems een variabele ofzo kan gebruiken van de TVirtualShellView class.
Publics kan ik ook niet bij hoor trouwens

[Delphi32]

Op zondag 17 maart 2002 22:47 schreef XLerator het volgende:
Wat ik wil weten staat in mijn 1e post hier
Hoe ik in een procedure van TMyListItems een variabele ofzo kan gebruiken van de TVirtualShellView class.

Hmm ik weet niet of dat design-technisch gesproken zo handig is, maar dat is jouw keus. Dus ga ik je serieus nemen en een handreiking doen:

Publics kan ik ook niet bij hoor trouwens

Oh jawel hoor, en als TVirtualShellView en TMyListItems in dezelfde unit zijn gedeclareerd, kun je zelfs bij de private dingen

Wat je nodig hebt om TMyListItems toegang te geven tot TVirtualShellView, is een Instance van TVirtualShellView. Je moet tenslotte de compiler duidelijk maken welk concreet object (van type TVirtualShellView) je wilt gebruiken in je TMyListItems procedure.
Je kunt dit doen middels een Owner parameter bij de Create van je TMyListItems.

code:

constructor TMyListItems.Create(aOwner: TVirtualShellView);
begin
  inherited Create;
  FOwner := aOwner;
end;

[Guillome]

Op maandag 18 maart 2002 00:59 schreef Delphi32 het volgende:
Hmm ik weet niet of dat design-technisch gesproken zo handig is, maar dat is jouw keus. Dus ga ik je serieus nemen en een handreiking doen:

Huh? Waarom is dat niet handig dan? Ik weet daar nix van?

Oh jawel hoor, en als TVirtualShellView en TMyListItems in dezelfde unit zijn gedeclareerd, kun je zelfs bij de private dingen

Wat je nodig hebt om TMyListItems toegang te geven tot TVirtualShellView, is een Instance van TVirtualShellView. Je moet tenslotte de compiler duidelijk maken welk concreet object (van type TVirtualShellView) je wilt gebruiken in je TMyListItems procedure.
Je kunt dit doen middels een Owner parameter bij de Create van je TMyListItems.

code:

constructor TMyListItems.Create(aOwner: TVirtualShellView);
begin
  inherited Create;
  FOwner := aOwner;
end;

Aha Inderdaad.
Maar nu heb ik nog 1 probleem
Als ik TMyItems = class(TListItems) enzo boven die van TVirtualShellView zet, kent ie de TVirtualShellView niet.
Dus dan kan ik dat met die FOwner niet doen.
En als ik het andersom neerzet kan ik die items in de TVirtualShellView = class(TListView) enzo niet declareren op deze manier:

code:

  public
    Items : TMyItems;
...
...

Hoe moet dat dan?

Als ik TMyItems bovenaan zet en TVirtualShellView vervang door TComponent, en dan in de TMyItems.Clear het volgende zet

code:

procedure TMyItems.Clear;
Begin
  Clear;
End;

, dan doet ie t niet. Dan hangt ie helemaal. Geen foutmelding ofzo. Niets.

[Guillome]

Hmm hij doet t nu iets beter.
Als ik TMyItems = class; bovenaan zet kent ie `m gewoon.
Maar hij blijft hangen als ik een eigen Clear procedure maak.
Dan hangt ie bij het Clear-commando...

[Verwijderd]

Op maandag 18 maart 2002 13:09 schreef XLerator het volgende:

Dan hangt ie bij het Clear-commando...

code:

procedure TMyItems.Clear;
Begin
  Clear;
End;

Dat verbaast mij niks, aangezien je de procedure recursief aanroept. Wat is de bedoeling van die Clear statement?

[Guillome]

Ooowwwwww duh...
Dom van mij zeg
lol.
Nou ja, ik heb een TVirtualShellTree.
En als je items.clear doet moet ie o.a. de imagelist legen, en nog een aantal dingen.

[Creepy]

moet de tshellitems.clear hetzelfde doen als de baseklasse van tshellitems?

code:

Tshellitems.clear;
begin
     { hier nog wat specifieke dingen die alleen voor
     TShellItems gelden, en niet voor TListItems. }
     inherited; { Roep de .clear van TListItems aan }
end;

[Guillome]

Tnx Creepy, dat is precies wat ik nodig heb!
Kan ik eindelijk verder.
Tnx again

[Creepy]

Op maandag 18 maart 2002 16:40 schreef XLerator het volgende:
Tnx Creepy, dat is precies wat ik nodig heb!
Kan ik eindelijk verder.
Tnx again

Graag gedaan, maaruh.. misschien is het eens handig dat je een Delph boek, cursus, online iets gaat lezen, of wat source gaat bekijken ofzo... want dit is redelijk RTFM werk eigenlijk.....

[Guillome]

Ow das niet echt nodig hoor
Ik ben al een lange tijd aan het programmeren, maar hier kwam ik ff niet uit.
Maar nu wel.
Ik heb al een aantal programmas gemaakt, die meer dan een apje zijn

[Creepy]

Maar wel nieuw als het aankomt op eigen objecten schrijven

[OxiMoron]

Ik heb wel een Delphi boek voor je..