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

imam string a mislim na komponentu, Konverzija?

[es] :: Pascal / Delphi / Kylix :: imam string a mislim na komponentu, Konverzija?

[ Pregleda: 2490 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

dejov
Dejan Jovic
Zrenjanin

Član broj: 17537
Poruke: 88
*.ptt.yu



Profil

icon imam string a mislim na komponentu, Konverzija?09.09.2004. u 18:15 - pre 207 meseci
MOzda je lakse kroz primer:
Imam 3 mala panela. Sva 3 su crne boje. Isod njih se nalazi editbox i dugme. Pritiskom na dugme, panel cije je ime upisano u editboxu menja boju u npr plavu. Kako to da uradim?
Odnosno, ako imam podatak koji je tipa string, kako da programu dam do znanja da mislim na komponentu koja se zove kao taj string, odnosno da kasnije radim nesto sa tom komponentom(kao sto je menjanje boje u nevedenom primeru)

Ne verujem da je moguca konverzija tipa StrToInt ili tako nesto.
 
Odgovor na temu

Almedin

Član broj: 5895
Poruke: 391
*.bih.net.ba.



+25 Profil

icon Re: imam string a mislim na komponentu, Konverzija?09.09.2004. u 21:40 - pre 207 meseci
Pogledaj FindComponent metod i Components property.
 
Odgovor na temu

burex
Software developer
Iterro
46°05'N 19°39'E

Član broj: 24964
Poruke: 987
*.verat.net



+679 Profil

icon Re: imam string a mislim na komponentu, Konverzija?09.09.2004. u 22:36 - pre 207 meseci
Code:

procedure TForm1.Button1Click(Sender: TObject);
var Komponenta:TComponent;
begin
Komponenta := FindComponent(Edit1.Text); 
with TPanel(Komponenta) do
Color := clBlue;
end;

//Ako je u pitanju Edit, onda zameniti TPanel sa TEdit



Samo pazi, ako ne postoji komponenta sa imenom npr. "Panel1", doci ce do greske tipa "Access violation at xxxblablaxxx".
A man is smart. People are stupid.
 
Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.141.eunet.yu



+1 Profil

icon Re: imam string a mislim na komponentu, Konverzija?10.09.2004. u 08:47 - pre 207 meseci
Nece ako stavi:

Code:

procedure TForm1.Button1Click(Sender: TObject);
Var Komponenta : TComponent;
begin
  // Trazimo
  Komponenta := FindComponent(Edit1.Text);
  // Izlazimo ako je nema
  if not Assigned(Komponenta) then Exit;

  // Ako je TPanel
  if Komponenta is TPanel then
    with (Komponenta as TPanel) do
      begin
        Caption := 'Proba';
        Exit
      end;

  // Ako je TEdit
  if Komponenta is TEdit then
    with (Komponenta as TEdit) do
      begin
        Text := 'Proba';
        Exit
      end;

  // Ako nije kliknuto na TPanel ili TEdit
  With Komponenta do
    ShowMessageFmt('Izabrali ste na komponentu tipa %s ciji je naziv %s', [ClassName,Name]);
end;
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: imam string a mislim na komponentu, Konverzija?

[ Pregleda: 2490 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

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