[Delphi] TTabsheet subcomponent benadering.

[Nibble]

Ok, het zit zo: Ik ben een programma aan het maken wat modules moet gebruiken, en deze in tabbladen gaat weergeven.
Ik maak @ runtime tabsheets aan uit de module gegevens.
In elke tabsheet staat een ListView.
Ik wil de items in de listview benaderen vanuit een andere procedure.
Het probleem is dat als ik die listviews er tijdens runtime inzet, ik ze blijkbaar niet kan gebruiken in de code dit lijkt mij ontzettend stug, maar ik kom er gewoonweg niet meer uit. Ik heb hier het helse stukje code gepost:

code:

//maak tabsheets aan in pagecontrol
With pcModuleList do
    for i := 0 to frmLoader.Modules.AvailableModules.TotalMods-1 do
     begin
       tab := TTabSheet.Create(pcModuleList);
        With tab do
            begin
               //tabs maken
               PageControl := pcModuleList;
               Caption     := frmLoader.Modules.AvailableModules.ModFile[i].Naam;
               Name        := 'tab'+inttostr(i);

               //listviews maken
               with TListView.Create(tab) do
                  begin
                    Parent := tab;
                    Align := alClient;
                    MultiSelect := False;
                    RowSelect := True;
                    Name := 'lv'+inttostr(i);
                    ViewStyle := vsReport;
                    modColumn := Columns.Add;
                    modColumn.Width := 175;
                    modColumn.Caption := 'Module';
                    modColumn := Columns.Add;
                    modColumn.Width := 120;
                    modColumn.Caption := 'Onderwerp';
                    modColumn := Columns.Add;
                    modColumn.Width := 304;
                    modColumn.Caption := 'Opdracht';
                   //voeg items toe aan lijst in huidige tab
                       For j:= 0 to frmLoader.Modules.AvailableModules.ModFile[i].TotalOpdrachten do
                         Begin;
                                modline              := Items.Add;
                                modline.Caption      := frmLoader.Modules.AvailableModules.ModFile[i].Naam;                                      //de naam van de module
                                modline.SubItems.Add(frmLoader.Modules.AvailableModules.ModFile[i].Opdrachten[j].Naam);                          //de deelopdracht
                                modline.SubItems.Add(frmLoader.Modules.AvailableModules.ModFile[i].Opdrachten[j].Opdracht);                      //de deelopdracht-omschrijving
                                modline.SubItems.Add(IntToStr(frmLoader.Modules.AvailableModules.ModFile[i].ModuleNummer));                      //module-id
                                modline.SubItems.Add(IntToStr(frmLoader.Modules.AvailableModules.ModFile[i].Opdrachten[j].OpdrachtNummer));      //opdracht-id
                         End;
                 end;
            end;
     end;

Als iemand me kan helpen, of een hint heeft, misschien een stukje voorbeeldcode, GRAAG, ik zit er helemaal doorheen

[whoami]

Hoe benader je die listviews dan?

Je kan door de Controls collectie van die TabPage loopen, en dan testen of het huidige control jouw listview is.

[Nibble]

whoami schreef op 09 October 2003 @ 18:13:
Hoe benader je die listviews dan?

Je kan door de Controls collectie van die TabPage loopen, en dan testen of het huidige control jouw listview is.

Ik had meer iets in gedachte van <tabcontrol>.<tab>.listview ..

[Varienaja]

Nibble schreef op 09 October 2003 @ 18:16:
Ik had meer iets in gedachte van <tabcontrol>.<tab>.listview ..

Dat gaat niet lukken. Je kunt bijvoorbeeld wel van tevoren een TList maken, met 10 lege items.

Zodra je een listview aanmaakt, assign je zo'n pointer naar die listview.

Later kan je dan via TListView(Pointerlijstje[3]) dingen doen.

Wel goed doen, anders zijn de access-violen niet van de lucht!

[Creepy]

Nibble schreef op 09 October 2003 @ 18:16:
[...]


Ik had meer iets in gedachte van <tabcontrol>.<tab>.listview ..

Hoe bedoel je dat?

Bedoel je dat je "Tabcontrol1.tabsheet5.listview" wilt gebruiken op het moment dat je je tabsheets @ runtime aanmaakt? Dat gaat natuurlijk niet werken want de compiler heeft er geen idee van dat .tabsheet5 bestaat, aangezien deze @ compiletime nog niet bestaat, maar pas @ runtime wordt aangemaakt.

[whoami]

Tja, zo kan je ze natuurlijk niet aanspreken.
listview is geen property van de TabControl of van de tabpage.

Je kan ze gewoon zo aanspreken ook:

code:

MyListView

[Creepy]

Varienaja schreef op 09 October 2003 @ 18:20:
[...]
Dat gaat niet lukken. Je kunt bijvoorbeeld wel van tevoren een TList maken, met 10 lege items.

Zodra je een listview aanmaakt, assign je zo'n pointer naar die listview.

Later kan je dan via TListView(Pointerlijstje[3]) dingen doen.

Wel goed doen, anders zijn de access-violen niet van de lucht!

Brr, pointers Gebruik dan gewoon een array, of beter, een TObjectList.

[Nibble]

Creepy schreef op 09 October 2003 @ 18:20:
[...]

Hoe bedoel je dat?

Bedoel je dat je "Tabcontrol1.tabsheet5.listview" wilt gebruiken op het moment dat je je tabsheets @ runtime aanmaakt? Dat gaat natuurlijk niet werken want de compiler heeft er geen idee van dat .tabsheet5 bestaat, aangezien deze @ compiletime nog niet bestaat, maar pas @ runtime wordt aangemaakt.

Nee, dat was mijn probleem dus ook

[Creepy]

Nibble schreef op 09 oktober 2003 @ 18:21:
[...]
Nee, dat was mijn probleem dus ook

Zie whoami's tip dus.

En een tip van mij: pak eens een goed Delphi boek erbij
En een andere tip: Dit is dus het verschi tussen compiletime en runtime. Waarschijnlijk ben je een ge-interpreteerde taal gewent?

[Nibble]

Creepy schreef op 09 oktober 2003 @ 18:31:
[...]

Zie whoami's tip dus.

En een tip van mij: pak eens een goed Delphi boek erbij
En een andere tip: Dit is dus het verschi tussen compiletime en runtime. Waarschijnlijk ben je een ge-interpreteerde taal gewent?

Die ben ik niet gewend, laten we het erop houden dat ik me mijn ogen uit mijn hoofd moet schamen voor ongeveer de komende 5 jaar...

[whoami]

Je kan anders ook nog eens naar de FindComponent method oid kijken.

[Varienaja]

Wordt het niet tijd om na te denken over de gebruikers-interface? We zitten hier allemaal mooie dingen te verzinnen... maar kan Nibble niet beter een MDI-applicatie in elkaar schroeven?

Ik kan er eigenlijk niet zo goed bij dat een applicatie runtime van uiterlijk verandert.

[mjax]

Kijk anders eens naar de AHM Triton Tools. Daar zit een component in, waarmee je een form in een ander form kunt tonen. Je zou dan dus voor al die modules aparte forms kunnen maken, elk met hun eigen code. In het hoofdscherm kun je dan dynamisch op de juiste plaats in de tabbladen de betreffende forms laden.

Ik heb dit zelf al eens gebruikt in een applicatie, maar mijn Delphi kennis is inmiddels wat vastgeroest, dus ik kan niet ff snel met een code voorbeeld komen.

Triton Tools zijn niet goedkoop. Overigens denk ik dat een soortgelijk componentje ook wel als freeware ergens verkrijgbaar moet zijn.

[Nibble]

Varienaja schreef op 09 oktober 2003 @ 19:05:
Wordt het niet tijd om na te denken over de gebruikers-interface? We zitten hier allemaal mooie dingen te verzinnen... maar kan Nibble niet beter een MDI-applicatie in elkaar schroeven?

Ik kan er eigenlijk niet zo goed bij dat een applicatie runtime van uiterlijk verandert.

Heb nog niet over een MDI app nagedacht, maar aangezien het modules zijn die allemaal geladen worden (en het er redelijk wat zijn) krijg je dan ineens wel een kwak vensters voor je neus. In je menu selecteerbaar maken zou dan ook een optie zijn misschien.
Maar ik zit er inmiddels al zo lang op dat het me eigenlijk onderhand de keel uitkomt (kortom, de app is bijna af )

[Nibble]

whoami schreef op 09 October 2003 @ 19:02:
Je kan anders ook nog eens naar de FindComponent method oid kijken.

Misschien ook een idee, maar findcomponent is traag.