Práce s vytvořenou komponentou – Delphi – Fórum – Programujte.com

Zdravím, rád bych se zeptal jak můžu dále pracovat s komponentou, kterou jsem programově vytvořil pomocí Create. Konkrétně se jedná o PairSplitter, ale samozřejmě nejen s ní.

Vytvoření: 

VAR Spliter: TPairSplitter;
...

Spliter:= TPairSplitter.Create(Self);
with Spilter do
  begin
    Parent:= PageControl1.Page[0];
    Name:= 'PairSplitter'+(IntToStr(CisloSplitter));
    Sides[0].Name:= 'PairSplitterSide'+ (IntToStr(CisloSide));
    Sides[1].Name:= 'PairSplitterSide'+ (IntToStr(CisloSide)+1);
end;
...

No a chtěl bych s touto komponentou pracovat dále. Např. změna velikosti Width a zde už mám problém. 

VAR SpilterSide: TPairSplitterSide;
...

IF FindComponent('PairSplitterSide'+ (IntToStr(CisloSide)) <> NIL THEN
   begin
     SpilterSide:= FindComponent('PairSplitterSide'+ (IntToStr(CisloSide));
       with SpilterSide do
            SpilterSide.Width:= 100;
      end;
   end;

...

Toto mi vyhodí chybu: Incompatible types: got "TComponent" expected "TPairSplitterSide".

Tak jsem zkusil jiný způsob: 

...

IF FindComponent('PairSplitterSide'+ (IntToStr(CisloSide))) <> NIL THEN
   begin       
     with FindComponent('PairSplitterSide'+ (IntToStr(CisloSide))) do
          Width:= 100;
    end;

...

Tohle mi však změní velikost celého okna, tedy Form a ne PairSplitterSide.

Bohužel zde již mé amatérské pokusy s programováním narazily na své limity, tak pokud by mi někdo odkázal poradit budu rád :).

Můžeš tu vrácenou hodnotu přetypovat.

SplitterSide := FindComponent(...) as TPairSplitterSide;

Ale Sides máš přece v tom Splitteru, FindComponent k ničemu nepotřebuješ.

#1 Radkus

componentu ti to najde, takže pro práci s ní jí stačí přetypovat

VAR SpilterSide: TComponent; 
...

IF FindComponent('PairSplitterSide'+ (IntToStr(CisloSide)) <> NIL THEN
   begin
     SpilterSide:= FindComponent('PairSplitterSide'+ (IntToStr(CisloSide));
     with TPairSplitterSide(SpilterSide) do
            Width:= 100;
      end;
   end;

v tomto případě by možná ani to přetypování nebylo nutné

jinak pro nastavení méně než 3 proměnných u jednoho objektu je with celkem zbytečný a někdy kontraproduktivní

pro podrobnější analýzu pokud by to nešlo by to chtělo alespoň ty definice tříd TPairSideSplitter a TPairSplitter

#3 MilanL
ještě bych to změnil netřeba prohledávat 2x

nejdříve bych dal SpilterSide := find component... a až za to If spilterside <>nil