FindComponent klappt nicht

[Haegar]

hi,
ich wollte in einer 2. Unit den befehl "Findcomponent('');" benutzen.
ich hab auch schon alle units ausprobiert aber es klappt net!?

gruss haegar

[d3g]

FindComponent() ist eine Methode von TWinControl. Du musst es also entweder in einer Methode von einem TWinControl (z.B. TForm1.ButtonXClick()) oder als Methode eines TWinControl aufrufen (z.B. Form1.FindComponent({...})).

MfG,
d3g

[Haegar]

also ich hab das so benutzen wollen:

Delphi-Quellcode:

var lebenbild:TImage;
begin
 lebenbild:=FindComponent('img_schiff'+(IntToStr(schiff.leben)));
end;

wär doch korrekt oder?

gruss haegar

[d3g]

Nein, wenn du FindComponent nicht in einer Prozedur aufrufst, die zu deiner Form gehört (die Namen der Prozeduren beginnen mit "TForm1" o.ä. und stehen in der Unit der Form im interface-Teil zwischen "type TForm1 = class(TForm)" und "end"), dann nicht. Woher soll der Delphi-Compiler denn wissen, von welchem Objekt er die Methode FindComponent aufrufen soll? Etwas wie das hier sollte helfen:

Delphi-Quellcode:

var lebenbild: TImage;
begin
  lebenbild := Form1.FindComponent('img_schiff' + (IntToStr(schiff.leben)));
  //           ^^^^^^
end;

MfG,
d3g

[Haegar]

jetzt klappt zwar das finden, aber eine eigenschaft erkennt er nicht:

Delphi-Quellcode:

lebenbild:=Form1.FindComponent(.....);
if lebenbild is TImage then
 lebenbild.visible:=false;

was hat er denn nu? also er meckert über das Visible

gruss haegar

EDIT: ach habs, musste TImage(lebenbild).visible:=false heissen

[CalganX]

Besser ist allerdings (lebenbild as TImage).Visible...

Chris

[Haegar]

all-die-weil??

ciao haegar