Srodne teme

21.03.2002. String
06.01.2003. character conversion
08.10.2002. Konverzija Win1250 u UTF-8
07.02.2003. String i memo.lines
15.08.2003. String u Char
22.01.2004. Konverzija CLX 2 VCL
13.04.2004. HTML i DHTMLEdit komponenta - Delphi 7
04.06.2004. OLE Automation Events Problem
18.08.2004. konverzija char->bin,char->hex
04.09.2004. Konverzija kodnog rasporeda u String polju TDataS..

Navigacija

Brisanje liste

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: 1095 \| Odgovora: 3 ]	Postavi temu Odgovori

Autor

dejov
Dejan Jovic
Zrenjanin

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

Profil

imam string a mislim na komponentu, Konverzija?

^{09.09.2004. u 18:15}

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.

^{09.09.2004. u 18:15}

Almedin

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

Profil

Re: imam string a mislim na komponentu, Konverzija?

^{09.09.2004. u 21:40}

Pogledaj FindComponent metod i Components property.

^{09.09.2004. u 21:40}

burex
Freelancer, Local community network administrator
46°05'N 19°39'E

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

Sajt: www.burex.net

Profil

Re: imam string a mislim na komponentu, Konverzija?

^{09.09.2004. u 22:36}

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

^{09.09.2004. u 22:36}

morlic
Milos Orlic
Beograd

Moderator
Član broj: 6081
Poruke: 732
*.141.eunet.yu

Profil

Re: imam string a mislim na komponentu, Konverzija?

^{10.09.2004. u 08:47}

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;

^{10.09.2004. u 08:47}

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

[ Pregleda: 1095 | Odgovora: 3 ]

Srodne teme

21.03.2002. String
06.01.2003. character conversion
08.10.2002. Konverzija Win1250 u UTF-8
07.02.2003. String i memo.lines
15.08.2003. String u Char
22.01.2004. Konverzija CLX 2 VCL
13.04.2004. HTML i DHTMLEdit komponenta - Delphi 7
04.06.2004. OLE Automation Events Problem
18.08.2004. konverzija char->bin,char->hex
04.09.2004. Konverzija kodnog rasporeda u String polju TDataS..

Navigacija

Brisanje liste

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