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