Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Konvertovanje stringa u naziv nekog objekta na formi (2)

[es] :: Pascal / Delphi / Kylix :: Konvertovanje stringa u naziv nekog objekta na formi (2)

[ Pregleda: 2003 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Nikola Radojicic
Impol Seval AD Sevojno
Uzice

Član broj: 65384
Poruke: 32
195.178.56.*



Profil

icon Konvertovanje stringa u naziv nekog objekta na formi (2)17.11.2005. u 12:57 - pre 201 meseci
Imam u programu ovako nesto:

Infosistem.Visible := False;

To nije sporno, ali zelim da iz koda aplikacije eliminisem eksplicitno navodjenje naziva objekta, nego da ga aplikacija uzima iz tabele sa nekim parametrima. To bih zeleo da uradim radi dobijanja na fleksibilnosti i univerzalnosti koda aplikacije, da ne bih morao uvek da menjam kod u programu, nego da u nekoj tabeli parametara samo izmenim podatke.

Dakle, necu da navodim ime objekta Infosistem, jer ga mogu dobiti iz tabele parametara, npr.

NazivObjekta := DM.SetupTable.FieldValues['meni10'];

Kako sad u onom Infosistem.Visible da zamenim Infosistem sa NazivObjekta, a da to radi.

Probao sam nekom analogijom sa npr:
&NazivObjekta.Visible := False;
zatim
(NazivObjekta).Visible := False;
ali naravno od toga nista ne prolazi.

Da li ima resenje za ovako nesto?


 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Konvertovanje stringa u naziv nekog objekta na formi (2)17.11.2005. u 13:38 - pre 201 meseci
Vec je nekoliko put bilo reci o ovome na forumu... nemoj da te mrzi da malo potrazis pre nego sto ponovo pitas pitanje koje je vec postavljeno.

Code:
TControl(FindComponent(NazivKomponente)).Visible := False;


[Ovu poruku je menjao Srki_82 dana 17.11.2005. u 14:40 GMT+1]
 
Odgovor na temu

Nikola Radojicic
Impol Seval AD Sevojno
Uzice

Član broj: 65384
Poruke: 32
195.178.56.*



Profil

icon Re: Konvertovanje stringa u naziv nekog objekta na formi (2)17.11.2005. u 14:30 - pre 201 meseci
Citati - naravno. Zbog toga sam u naslovu teme dodao (2) jer je nesto slicno imalo.
Morao sam malo da modifikujem ono sto je predlozeno, opet nakon dodatnog citanja poruka sa sadrzajem FindComponent, tako da je dole resenje:

var
Komponenta : TComponent;

i na kraju:

Komponenta := FindComponent(Trim(DM.SetupTable.FieldValues['meni10']));

with (Komponenta as TMenuItem) do
begin
Visible := False;
end;

Neka jednostavniji ili drugaciji pokusaji nisu prolazili. Ovo je bilo uspesno.

MNOGO hvala za Srki_82.
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Konvertovanje stringa u naziv nekog objekta na formi (2)17.11.2005. u 17:05 - pre 201 meseci
TMenuItem ne nasledjuje TControl pa ne mozes onako kako sam pokazao... za sve kontrole koje nasledjuju TControl koristi kod koji sam ti dao (nije ti bitno da li je kontrola TEdit, TButton, TList...), a za kontrole koje nasledjuju direktno TComponent moraces da ih kastujes po potrebi kao sto si radio za TMenuItem.
 
Odgovor na temu

Nikola Radojicic
Impol Seval AD Sevojno
Uzice

Član broj: 65384
Poruke: 32
195.178.56.*



Profil

icon Re: Konvertovanje stringa u naziv nekog objekta na formi (2)18.11.2005. u 07:08 - pre 201 meseci
Srki_82, u pravu si.

Aplikacija radi i sa kodom:

with Komponenta do
begin
Visible := False;
end;

umesto:

with (Komponenta as TMenuItem) do
begin
Visible := False;
end;
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Konvertovanje stringa u naziv nekog objekta na formi (2)

[ Pregleda: 2003 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.