Delphi problem - indirektan pristup komponenti na formi

Delphi problem - indirektan pristup komponenti na formi 19.12.2007. u 11:26 · pre 229 meseci #1

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

Potpis

http://www.onedevteam.com/
http://www.skuvajme.com/

Re: Delphi problem - indirektan pristup komponenti na formi 19.12.2007. u 11:59 · pre 229 meseci #2

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.

Re: Delphi problem - indirektan pristup komponenti na formi 19.12.2007. u 12:12 · pre 229 meseci #3

Ne postoji elegantniji nacin. Svasta nesto sam pokusavao i ovo je jedino resenje.
Kod radi.. Hvala :)

Potpis

http://www.onedevteam.com/
http://www.skuvajme.com/

Re: Delphi problem - indirektan pristup komponenti na formi 19.12.2007. u 12:34 · pre 229 meseci #4

> 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š.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: Delphi problem - indirektan pristup komponenti na formi 21.12.2007. u 13:24 · pre 229 meseci #5

Ma mora ovako. komponente treba da imaju odredjeni raspored na formi..
hvala na odgovorima

Potpis

http://www.onedevteam.com/
http://www.skuvajme.com/

Re: Delphi problem - indirektan pristup komponenti na formi 21.12.2007. u 16:20 · pre 229 meseci #6

> 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.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: Delphi problem - indirektan pristup komponenti na formi 22.12.2007. u 12:13 · pre 229 meseci #7

Ma samo preko niza array ostali nacini su glupost.
A, ako ti to nevalja onda kako ti volis.

Forum kao aplikacija na telefonu

Srodne teme