Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
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
25.11.2009. OLE Automation Events Problem
18.08.2004. konverzija char->bin,char->hex

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: 2783 | Odgovora: 3 ] > FB > Twit

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 - pre 238 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: 425
*.bih.net.ba.

+27 Profil

Re: imam string a mislim na komponentu, Konverzija?

^{09.09.2004. u 21:40 - pre 238 meseci}

Pogledaj FindComponent metod i Components property.

Odgovor na temu

burex
46°05'N 19°39'E

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

+679 Profil

Re: imam string a mislim na komponentu, Konverzija?

^{09.09.2004. u 22:36 - pre 238 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

Re: imam string a mislim na komponentu, Konverzija?

^{10.09.2004. u 08:47 - pre 238 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: 2783 | Odgovora: 3 ] > FB > Twit

Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
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
25.11.2009. OLE Automation Events Problem
18.08.2004. konverzija char->bin,char->hex

Navigacija

Brisanje liste

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