Komponente an Hand des Namens finden

[Scorpion]

Hallo,

ich will eine Komponente ansprechen, dessen name ich kenne. Ich benutze die FindComponent Funktion, aber irgendwie klappt das nicht, wo liegt denn der Fehler??

Delphi-Quellcode:

    
var lknoten: TImage;
    Komponentenname: String;
...
lKnoten := TImage(Komponentenname);
//Zum Test, eine Showmessage
Showmessage(lknoten.Name);

Jedoch stürzt er bei der Showmessage ab.

thx

[sh17]

kann ja nicht gehen, Du machst aus dem String ein TImage.

Zeig mal bitte den Code mit FindComponent.

[Scorpion]

Oh, sorry...

ich wollte es eigentlich so versuchen:

lknoten := FindComponent(Komponentenname) As TImage;

aber das geht auch nicht, gibt jedes mal aber keinen Compilierfehler

[sh17]

Delphi-Quellcode:

var
  lknoten : TImage;
  c : TComponent;
begin
  c := FindComponent('Image1');
  if c is TImage then
  begin
    lknoten := TImage(c);
    MessageDlg(lknoten.Name, mtInformation, [mbOK], 0);
  end;

[Scorpion]

das gibt bei mir leider auch folgenden fehler...

[sh17]

also bei mir gehts

aber wie ich sehe, setzt Du schon eine TObjectList ein.

[ichbins]

wo genau tritt denn der Fehler auf? Mach mal überall showmessages rein damit du das siehst.

[Khabarakh]

Zitat von ichbins:

Mach mal überall showmessages rein damit du das siehst.

Dafür gibt es einen Debugger. Selbst wenn er nicht selbst an die richtige Stelle springt, sind ein paar Haltepunkte zehnmal so leicht einzusetzen und auch wieder zu entfernen als ShowMessage-Prozeduren.

[r2c2]

Hört sich danach an, als gäge es keine Komponente mit entsprechendem Namen. Deshalb: In solchen Fällen mit <> nil prüfen...

mfg

Christian

[Yheeky]

Zitat von Scorpion:

Hallo,

ich will eine Komponente ansprechen, dessen name ich kenne. Ich benutze die FindComponent Funktion, aber irgendwie klappt das nicht, wo liegt denn der Fehler??

Delphi-Quellcode:

    
var lknoten: TImage;
    Komponentenname: String;
...
lKnoten := TImage(Komponentenname);
//Zum Test, eine Showmessage
Showmessage(lknoten.Name);

Jedoch stürzt er bei der Showmessage ab.

thx

Hi Scorpion

wenn du z.B. die Transparentfarbe festlegen willst...

TImage(FindComponent('Name der Komponente')).Picture.Bitmap.TransparentColor := clFuchsia;