Lazarus 3.2 (2024.02.28.)
Letöltés

  • Oldal:
  • 1

TÉMA:

Válasz:name to string konvertálás 2010 nov. 08 13:46 #633

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 506
  • Köszönetek: 86
Az adott vezérlő (automatikusan létrehozott) nevében szereplő szám része a névnek. A számlálót a keresendő név végéhez kell fűzni.
Valahogy így:
ElemAllapotBeallitasa('RadioButton'+IntToStr(i),True);
Hogyan kérdezzünk okosan? / Mit kell tennünk kérdezés előtt? -- Lazarus 3.0 -- FPC 3.2-- GNU/Linux 5.15.0 x86_64

Válasz:name to string konvertálás 2010 nov. 08 11:56 #632

  • freddi99
  • freddi99 profilkép Témaindító
  • Új tag
  • Új tag
  • Hozzászólások: 2
  • Köszönetek: 0
Köszi a segítséget!
Azt még mindig nem értem, hogy az objektum nevében szereplő számot (pl:RadioButton1) hogyan tudom felhasználni.
Köszönöm a segítséged!
Freddi

Válasz:name to string konvertálás 2010 nov. 08 09:39 #631

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 506
  • Köszönetek: 86
procedure TAblak.ElemAllapotBeallitasa(Nev:String;Allapot:Boolean);
var C:TComponent;
begin
  C:=FindComponent(Nev);
  if IsPublishedProp(C,'Enabled') then C.Enabled:=Allapot; {letiltás/engedélyezés}
  if IsPublishedProp(C,'Visible') then C.Visible:=Allapot; {láthatóság}
end;

lazarus-ccr.sourceforge.net/docs/rtl/classes/tcomponent.findcomponent.html
Hogyan kérdezzünk okosan? / Mit kell tennünk kérdezés előtt? -- Lazarus 3.0 -- FPC 3.2-- GNU/Linux 5.15.0 x86_64

name to string konvertálás 2010 nov. 08 08:26 #630

  • freddi99
  • freddi99 profilkép Témaindító
  • Új tag
  • Új tag
  • Hozzászólások: 2
  • Köszönetek: 0
Sziasztok!
Van valakinek ötlete arról, hogyan lehet az objektumok nevét szöveggé konvertálni?
Az alapproblémám az, hogy vannak radiobutton-ok, és ezeknek a láthatóságát szeretném vezérelni, ezért kellene a nevükben szereplő számra hivatkozni.
Valahogy így:
For i:=1 To 100 Do
Radiobuttoni.Visible:=True/False;
Köszi a segítséget!
Freddi

  • Oldal:
  • 1