[BCB]Meerdere instanties (grafische) objecten

[WarMaster]

Geachte mede-Gotters,

Allereerst; wat is het hier uitgestorven lijkt het wel.
Vroegâh had je nog een flinke bak met C (+varianten) topics lopen.

Anyway,

Iets waar ik al enige tijd mee zit in BCB is het creëeren van meerdere instanties van grafische objecten in running mode.

D.w.z. in de builder plak je gewoon zooi zo als je het wil hebben, en daarbij wordt alles in een soort 'object' taaltje bewaard (de .DFM file).

Simpel voorbeeld.

code:

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 519
  Height = 365
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Edit1: TEdit
    Left = 112
    Top = 104
    Width = 121
    Height = 21
    TabOrder = 0
    Text = 'Edit1'
  end
  object Button1: TButton
    Left = 168
    Top = 200
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
  end
end

Nu zijn er situaties te bedenken waarbij je, afhankelijk van de input van de user, een aantal instanties van (of diverse) grafische objecten tevoorschijn wil toveren.
Omdat dit om een variabel aantal kan gaan, is het geen oplossing om 255 van die objecten te tekenen, en ze vervolgens allemaal "Visable NO" te zetten.

Is er een manier om dynamisch met die objecten om te gaan?

[Creepy]

WarMaster schreef op 02 augustus 2004 @ 06:33:
Is er een manier om dynamisch met die objecten om te gaan?

Vroegah werdt ook nog wel eens de search gebruikt (maar die ligt nu plat ).

Ja, het is mogelijk om buttons e.d. dynamisch aan te maken. Als je daarna maar het form waar de control op getoond moet worden als parent property zet van de control dan wordt de control ook getoond.

Delphi:

var button: TButton
begin
  button := TButton.create(nil);
  button.parent := Form1;
end;

Bovenstaande is Delphi code, maar makkelijk om te zetten naar BCB code lijkt me

[WarMaster]

Mja, dat heb ik inmiddels werkend...

Het grote probleem is hoe ik die objecten steeds moet aanspreken.

Ik kan zulke objecten op allerlei manieren er op mieteren heb ik gemerkt, maar ik raak de mogelijkheid kwijt om hem buiten de scope waar het object gemaakt wordt te benaderen.

Je kan zo'n ding wel een naam geven met een string in de zin van "TijdelijkePointer->Name = "NaaminString"; maar je kan absoluut niet "NaaminString"->Property = bla bla bla

Want "NaaminString kent hij als object niet.
Of moet ik dan met een pointer naar een pointer werken?

[whoami]

BCB heeft een method FindControl of FindComponent oid. De juiste naam weet ik niet, maar die method neemt een string als parameter, en returned dan de control met die naam.

Je kan natuurlijk ook zelf door de ControlCollection gaan lopen.

[curry684]

WarMaster schreef op 03 augustus 2004 @ 21:39:
Mja, dat heb ik inmiddels werkend...

Het grote probleem is hoe ik die objecten steeds moet aanspreken.

Ik kan zulke objecten op allerlei manieren er op mieteren heb ik gemerkt, maar ik raak de mogelijkheid kwijt om hem buiten de scope waar het object gemaakt wordt te benaderen.

Je kan zo'n ding wel een naam geven met een string in de zin van "TijdelijkePointer->Name = "NaaminString"; maar je kan absoluut niet "NaaminString"->Property = bla bla bla

Want "NaaminString kent hij als object niet.
Of moet ik dan met een pointer naar een pointer werken?

Nofi, maar heb jij ooit een basiscursus C++ gevolgd?

Je kunt gewoon een TList maken en daarin TControl-pointers opslaan, of in membervariabelen van een willekeurige class, of voor mijn part in een std::vector<TControl*>

C++:

TList* MyList = new TList;
TButton* MyButton = new TButton(Form1);

MyButton->Parent = Form1;
MyList->Add(MyButton);

Om maar een inkoppertje te noemen...

[whoami]

Hmm, ik vraag me zelfs af of de VCL geen TControlList class bevat.
(Delphi is al een tijd geleden... )

[curry684]

whoami schreef op 03 augustus 2004 @ 22:46:
Hmm, ik vraag me zelfs af of de VCL geen TControlList class bevat.
(Delphi is al een tijd geleden... )

In mijn versie van BCB5 in ieder geval nog niet, en een recentere heb ik nooit vastgehad

(te lui om te porten, wat helaas met BCB wel nodig is)

[whoami]

Hmmm, in mijn versie van Delphi 5 ook niet.
De Controls - property is een array van TControl objecten; daarnet hield ik me voor dat dat een collection was van het type TControlList ofzo. Nouja, niet dus.

[WarMaster]

curry684 schreef op 03 augustus 2004 @ 22:21:
[...]

Nofi, maar heb jij ooit een basiscursus C++ gevolgd?

Je kunt gewoon een TList maken en daarin TControl-pointers opslaan, of in membervariabelen van een willekeurige class, of voor mijn part in een std::vector<TControl*>

C++:

TList* MyList = new TList;
TButton* MyButton = new TButton(Form1);

MyButton->Parent = Form1;
MyList->Add(MyButton);

Om maar een inkoppertje te noemen...

Heel fijn voor de genuanceerde kritiek....
Maar nee, ik heb nooit een C++ basis cursus gevolgd.
Slechts een half jaar op de HTS wat brakke informatica m.b.v. je raadt het al... BCB.

In elk geval was ik bedankt voor het inkoppertje, want dat is altijd de beste manier..... een voorbeeld

Die FindControl en FindComponent functies zijn me nog helemaal duister wat betreft de werking daarvan...

Maar ik red me hier wel mee hoop ik.

[LordLarry]

Delphi heeft ook een TComponentList, zoals eerder genoemd, die je kan gebruiken. Deze kan ook de Owner zijn van de TComponentens zodat zodra de lijst vrijgegeven wordt, ook de objecten daarin vrijgegeven worden. Als je dat wilt tenminste. En als er een TComponent door iemand anders vrijgegeven wordt, wordt ie automatisch uit de lijst gehaald.

FindControl geeft het TWinControl bij de bijbehorende HWND (Window Handle). FindComponent vind een TComponent aan de hand van de Name van een TComponent, maar zoekt alleen in de lijst van componenten met dezelfde Owner.

[curry684]

WarMaster schreef op 05 augustus 2004 @ 13:11:
[...]

Heel fijn voor de genuanceerde kritiek....

Het was geen genuanceerde kritiek, en zelfs geen kritiek Het was een eerlijke retorische vraag omdat ik dat linea recta uit je code-voorbeelden af kon leiden. En dat is vervolgens geen kritiek dus, maar enkel bedoeld om je te stimuleren dat wel te doen. Programmeren is verschrikkelijk veel meer dan voorbeelden en 'inkoppertjes' van anderen overtypen, en ik ben bang dat je dus van dit topic wat dat betreft weinig geleerd hebt. Investeer gewoon eens in een boek over C++, en dan liefst Stroustrup, daar leer je zoveel meer van dan een topic op GoT over basale elementen.

Programming & Webscripting is bedoeld voor inhoudelijke discussies over programmeerproblemen, niet over het stap-voor-stap helpen bij het leren programmeren