[delphi] Hoe maak je dynamische tekst

[banaan-X]

Titel is misschien wat vaag, maar ik wil bij het laden van een programma, een bepaalde Label.Caption meteen vervangen door de Caption van een ander Object. Hoe kan zoiets?

[Sponz]

Op zondag 09 september 2001 22:00 schreef banaan-X het volgende:
Titel is misschien wat vaag, maar ik wil bij het laden van een programma, een bepaalde Label.Caption meteen vervangen door de Caption van een ander Object. Hoe kan zoiets?

code:

Label1.Caption:=Label2.Caption;

In het OnShow event.

Tja, meer kan ik er niet van maken. Vage vraag.

[banaan-X]

Op zondag 09 september 2001 22:23 schreef Sponz het volgende:

[..]

code:

Label1.Caption:=Label2.Caption;

In het OnShow event.

Tja, meer kan ik er niet van maken. Vage vraag.

Het ging me idd om het "Onshow event", kun je dat niet wat duidelijk programmeren dan dat in dat kleine invulvakje te proppen van de Object Inspector?

[winand]

dubbelklik dat kleine vakje eens dan

[freddifish]

LOL

[Verwijderd]

Wordt vast erg dynamisch die tekst...

Waar is het voor.. Wat ben je aan het maken/programmeren?

[banaan-X]

Op maandag 10 september 2001 00:39 schreef Rummbler het volgende:
Wordt vast erg dynamisch die tekst...

Waar is het voor.. Wat ben je aan het maken/programmeren?

- Niet echt nee. Maar ach...
- Een programma met blz. nummers

Ik heb nu dit, maar dat moet toch wat mooier kunnen :

code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  pag1.Caption := TabSheet1.Caption;
  pag2.Caption := TabSheet2.Caption;
  pag3.Caption := TabSheet1.Caption;
end;

for-next lusje ofzo? Beetje vervelend dat "pag1.Caption" niet een string is he...

[Creepy]

Moet je voor de gein is op caption gaan staan en op F1 drukken.. zul je zien dat caption WEL gewoon een string is

code:

var txt: string
begin
   txt:='hallo dan';
   form1.caption:=txt;
end;

Dit is geen probleem hoor :-)

[banaan-X]

Op maandag 10 september 2001 18:32 schreef Creepy het volgende:
Moet je voor de gein is op caption gaan staan en op F1 drukken.. zul je zien dat caption WEL gewoon een string is

code:

var txt: string
begin
   txt:='hallo dan';
   form1.caption:=txt;
end;

Dit is geen probleem hoor :-)

Dat bedoel ik niet. De Tabsheet is idd wel een string (best logisch, maar de _variabele_ form1.caption niet.

Dus dit kan niet:

code:

procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
  for i := 1 to 4 do
  pag[i].Caption := TabSheet[i].Caption;
end;

Ik heb t trouwens niet geprobeerd, maar neem aan dat dit dus niet werkt.

[Klippy]

Op maandag 10 september 2001 19:18 schreef banaan-X het volgende:

[..]

Dat bedoel ik niet. De Tabsheet is idd wel een string (best logisch, maar de _variabele_ form1.caption niet.

Dus dit kan niet:

code:

procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
  for i := 1 to 4 do
  pag[i].Caption := TabSheet[i].Caption;
end;

Ik heb t trouwens niet geprobeerd, maar neem aan dat dit dus niet werkt.

Volgens mij gaat die laatste gewoon werken hoor.

En anders formatteer je 'm toch gewon eerst naar een string. Maar volgens mij gaat 'ie zo ook.

[Verwijderd]

Op maandag 10 september 2001 19:18 schreef banaan-X het volgende:
Dus dit kan niet:

code:

procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
  for i := 1 to 4 do
  pag[i].Caption := TabSheet[i].Caption;
end;

Geen flauw idee wat je hiermee wilt, maar wanneer Pag1, Pag2, etc. gewoon controls op je form zijn, dan kan 't op deze (foeilelijke) manier:

code:

procedure TForm1.FormCreate(Sender: TObject);
var 
  i: integer;
  ctl: TControl;
begin
  for i := 1 to 4 do begin
    ctl := FindComponent('Pag' + IntToStr(i));
    if Assigned(ctl) then
    ctl.Caption := TabSheet[i].Caption;
  end;
end;

Zoals gezegd, foeilelijk, en maak er alsjeblieft geen gewoonte van...