[Delphi] Interface Elementen in RUNTIME genereren

[Verwijderd]

Vraagje,

Ik moet voor een projectje een delphi programma schrijven. Hardstikke leuk maar ik zit met een probleempje. Ik ga een soort reminder proggie maken. Daar wordt ui een text file een aantal taken gelezen. Deze worden opgeslagen in TTaak. De TTaak elemetnen worden opgeslagen in een dynamische array genoaamd Taken.

Nu wil ik PER taak een reeks interface elementen genereren. Een Label (taaknaam), een ProgressBar (Taak progress) en een button (edit)

Nu heb ik een stukje code lopen frotten, maar hij wil de elementen niet plaatsen.

Dit is mijn code om de elemente te genereren. DE array van taken is met 2 items gevuld. Hoe krijg ik me element op het scherm.

code:

procedure TfrmMain.maakMeuk();
var i : integer;
begin
  setLength(pbars,aantalTaken);
  setLength(knopjes,aantalTaken);
  setLength(labels,aantalTaken);
  i := 0;
  while i < aantalTaken do
  begin
    //Aanmaken meuk!!
    pbars[i] := Tprogressbar.Create(SELF.boxTakenOverzicht);
    pbars[i].Enabled := true;
    pbars[i].SetBounds(1,1,100,100);
    pbars[i].Visible := true;
    pbars[i].Position := taken[i].TaakPercentage;
    pbars[i].Show;
    i := i + 1;
  end;
end;

En dan nog een vraagje, ik wil dus zoals gezegd een button maken. Is het mogelijk om aan als die buttons een generieke handler toe te passen? Of om aan te geven wat moet gebeuren bij klik? (de lessen waren namelijk maar een inleiding, en ik schat dat ik het mezelf weer te lastig heb gemaakt )

IIG ik zou u allen hartelijk danken als jullie weten hoe het wel moet...

[Creepy]

Van je in code aangemaakt objecten zul je de parent moeten zetten. De parent is datgene waar ze op getoond kunnen worden, de owner (die je meegeeft in de create) is verantwoordelijk voor het opschonen van geheugen.

Als je 1 onclick procedure hebt kan je deze procedure gewoon toekennen aan de onclick handlers van andere buttons

Delphi:

procedure tform1.button1click(sender: TObject);
begin
  //check welke knop het is
  if sender = button1 then
  begin
    //doe iets met de knop
  end;
end;

En dan ergens anders in je code iets ala

Delphi:

anderebutton.onclick:=form1.button1click;

Als je van te voren niet weet hoe de knop heet (wat altijd het geval is met in runtime aangemaakt knoppen) kan je gebruik maken van de tag property.

[Verwijderd]

Creepy schreef op 22 June 2003 @ 17:18:
Van je in code aangemaakt objecten zul je de parent moeten zetten. De parent is datgene waar ze op getoond kunnen worden, de owner (die je meegeeft in de create) is verantwoordelijk voor het opschonen van geheugen.

Als je 1 onclick procedure hebt kan je deze procedure gewoon toekennen aan de onclick handlers van andere buttons

Delphi:

procedure tform1.button1click(sender: TObject);
begin
  //check welke knop het is
  if sender = button1 then
  begin
    //doe iets met de knop
  end;
end;

En dan ergens anders in je code iets ala

Delphi:

anderebutton.onclick:=form1.button1click;

Als je van te voren niet weet hoe de knop heet (wat altijd het geval is met in runtime aangemaakt knoppen) kan je gebruik maken van de tag property.

Tnx het werkt zover! k krijg nu mooi 2 scrollbarretjes..... Dat met parent had ik zo niet verwacht moet ik eerlijk zeggen, maar dat komt omdat ik nog teveel Java enzo gewend ben...

Nu heb ik als owner een scrollbox genomen... Dan zouder bij veel objecten dus ook de scroller in werking treden denk ik!

Iig met parent tekent hij hem idd op het vernster dat ik moet hebben!!

[klinz]

En bedankt...

[Delphi] Objecten creeeren @ Runtime (fok!)

[whoami]

klinz schreef op 22 June 2003 @ 17:46:
En bedankt...

[Delphi] Objecten creeeren @ Runtime (fok!)

En wat wil je daar mee zeggen?
Het is perfect toegestaan om op verschillende forums (GoT, Fok, etc...) hetzelfde probleem te posten hoor.

[Verwijderd]

klinz schreef op 22 June 2003 @ 17:46:
En bedankt...

[Delphi] Objecten creeeren @ Runtime (fok!)

Zeur Piet

modbreak: dat de reactie van Klinz niet zo netjes is okee, dit is ook wel een overdreven reactie. pas op met smilies als , , e.d. waar mensen aanstoot aan kunnen nemen

[ Voor 32% gewijzigd door curry684 op 22-06-2003 21:45 ]

[Tomatoman]

Verwijderd schreef op 22 June 2003 @ 16:55:

code:

  i := 0;
  while i < aantalTaken do
  begin
    ...
    i := i + 1;
  end;

Misschien eens in je leerboeken opzoeken wat een for-loop doet?

[Verwijderd]

tomatoman schreef op 23 juni 2003 @ 00:00:
[...]
Misschien eens in je leerboeken opzoeken wat een for-loop doet?

T is slechts een gekopieerd lusje vanuit een gedeelte waar het op te tellen getal variabel is!

Je hoeft mij niet te dirigeren wat een for loop is, want dat weet ik wel hoor!

[Tomatoman]

Waarom doe je het dan zo omslachtig?