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;

[dfried]

Hi Yheeky,

Zitat:

Zitat von Yheeky

Delphi-Quellcode:

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

Und wenns die Komponente nicht gibt oder sie nicht instanziert ist dann passiert genau die vorgenannte Zugriffsverletzung!!!

sh17 bzw. die Ergänzung von r2c2 haben doch schon den korrekten Weg aufgezeigt!

[Yheeky]

Zitat:

Zitat von dfried

Hi Yheeky,

Zitat:

Zitat von Yheeky

Delphi-Quellcode:

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

Und wenns die Komponente nicht gibt oder sie nicht instanziert ist dann passiert genau die vorgenannte Zugriffsverletzung!!!

sh17 bzw. die Ergänzung von r2c2 haben doch schon den korrekten Weg aufgezeigt!

Wenn man´s mit try verpackt, dann nicht...er sagte ja er kennt den Namen der Komponente bereits...

[r2c2]

Zitat:

Zitat von Yheeky

Zitat:

Zitat von dfried

Hi Yheeky,

Zitat:

Zitat von Yheeky

Delphi-Quellcode:

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

Und wenns die Komponente nicht gibt oder sie nicht instanziert ist dann passiert genau die vorgenannte Zugriffsverletzung!!!

sh17 bzw. die Ergänzung von r2c2 haben doch schon den korrekten Weg aufgezeigt!

Wenn man´s mit try verpackt, dann nicht...er sagte ja er kennt den Namen der Komponente bereits...

try...except sollte IMHO in solchen Fällen immer drum; nicht aber um ne Exception "abzublocken", sondern um Unvorherdesehenes verständlicher wiederzugeben. AV sagt nicht so viel aus. Wenn die Fehlermeldung aber lautet: "Fehler Nummer 123 mit Nachricht AV", dann weiß der Enrwickler wenigstens wo er zu suchen hat...

Also: mit <> nil prüfen und zusätzlich try...except mit ggf. aussagekräftigerer Meldung(jedenfalls bei größeeren Projekten wird das sinnvoll)...

mfg

Christian