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

Delphi problem - indirektan pristup komponenti na formi

[es] :: Pascal / Delphi / Kylix :: Delphi problem - indirektan pristup komponenti na formi

[ Pregleda: 2462 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

martinj
Martin Jeremic
Nis

Član broj: 39299
Poruke: 86
87.116.128.*

Sajt: www.onedevteam.com


+2 Profil

icon Delphi problem - indirektan pristup komponenti na formi19.12.2007. u 10:26 - pre 199 meseci
Vec neko vreme pokusavam da resim problem ali ne ide... Imam na formi par stotina TLabel komponenti koje u odredjenom slucaju treba da dobiju odredjenu boju...

Primer.. Ako je ID polja u tabeli 1 i vrednost True, onda Label1 treba da bude plava. Ako je vrednost False treba da bude zelena. Za ID 2 vrednost dobija Label2, za ID 3 vrednost ide u Label3... I tako do negde 500...
Da je manji broj labela pisao bih CASE konstrukciju... Ovako, treba mi neko drugo resenje...

Unapred hvala

 
Odgovor na temu

NemesisMMX
Beograd

Član broj: 152324
Poruke: 28
89.216.216.*

Sajt: www.designbuildersoftware..


Profil

icon Re: Delphi problem - indirektan pristup komponenti na formi19.12.2007. u 10:59 - pre 199 meseci
Prvo, mislim da bi to trebalo da resis na neki elegantniji nacin a ne sa 500 labela koji se zovu label1..500 :)
ali ako vec zelis evo kako:

Code:

procedure TFormMain.NewColorForLabel(ID: Integer; NewColor: TColor);
var
c : TComponent;
begin
 c := FindComponent('label'+inttostr(ID));
 if c is TLabel  then
 TLabel(c).Color :=  NewColor;
end;


TFormMain je forma na kojoj su ti ti labeli.
Nadam se da ce pomoci.
Poz.
 
Odgovor na temu

martinj
Martin Jeremic
Nis

Član broj: 39299
Poruke: 86
87.116.128.*

Sajt: www.onedevteam.com


+2 Profil

icon Re: Delphi problem - indirektan pristup komponenti na formi19.12.2007. u 11:12 - pre 199 meseci
Ne postoji elegantniji nacin. Svasta nesto sam pokusavao i ovo je jedino resenje.
Kod radi.. Hvala :)
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Delphi problem - indirektan pristup komponenti na formi19.12.2007. u 11:34 - pre 199 meseci
> Ne postoji elegantniji nacin. Svasta nesto sam pokusavao i ovo je jedino resenje.

Deklariši niz (array of TLabel ili array[1..500] of TLabel) u koji ćeš ubaciti sve TLabele tako da indeks u nizu odgovara broju labele. Kada treba da nešto menjaš, pristupaš članu niza po datom broju i menjaš.
 
Odgovor na temu

martinj
Martin Jeremic
Nis

Član broj: 39299
Poruke: 86
87.116.128.*

Sajt: www.onedevteam.com


+2 Profil

icon Re: Delphi problem - indirektan pristup komponenti na formi21.12.2007. u 12:24 - pre 198 meseci
Ma mora ovako. komponente treba da imaju odredjeni raspored na formi..
hvala na odgovorima
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Delphi problem - indirektan pristup komponenti na formi21.12.2007. u 15:20 - pre 198 meseci
> Ma mora ovako. komponente treba da imaju odredjeni raspored na formi..

Ti ih rasporedi kako želiš a u OnCreate evemti forme ih ubaci u niz.

[Ovu poruku je menjao savkic dana 21.12.2007. u 21:01 GMT+1]
 
Odgovor na temu

Milan Milosevic

Član broj: 67
Poruke: 932
77.46.203.*



+31 Profil

icon Re: Delphi problem - indirektan pristup komponenti na formi22.12.2007. u 11:13 - pre 198 meseci
Ma samo preko niza array ostali nacini su glupost.
A, ako ti to nevalja onda kako ti volis.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Delphi problem - indirektan pristup komponenti na formi

[ Pregleda: 2462 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

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