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 :gruebel:

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:

Zitat von ichbins

Mach mal überall showmessages rein damit du das siehst.

:shock: 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:

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

Delphi-Quellcode:

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