ImageList Problem bei for-Schleife

[LoW_FloW]

Ich habe mehrer Bilder und wenn man auf eins von den Bilder klickt, soll für das Bild ein anderes geladen werden. Dafür habe ich folgenden Source zusammen gestellt:

Delphi-Quellcode:

procedure TForm1.imgBackroundMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  i, Bild : integer ;
  imgLeft , imgWidth, imgTop, imgHeight : integer ;
begin
if klick = true then begin
  Bild := 0 ;
  for i := 1 to 33 do begin
    imgLeft   := (findcomponent('Img'+inttostr(i)) as TImage).Left   ;
    imgWidth  := (findcomponent('Img'+inttostr(i)) as TImage).Width  ;
    imgTop    := (findcomponent('Img'+inttostr(i)) as TImage).Top    ;
    imgHeight := (findcomponent('Img'+inttostr(i)) as TImage).Height ;
      if  (X >= imgLeft) and (X <= imgLeft+ImgWidth ) and
          (Y >= ImgTop ) and (Y <= ImgTop +ImgHeight) then Bild := i ;
    end;  
    if Bild > 0 then                                 // <-- PROBLEM !!!!!!!!!
    FigurListe.GetBitmap(3, (findcomponent('Img'+inttostr(Bild)) as TImage).Picture.Bitmap) ;
  end;
end;

Nun habe ich das Problem, dass das Bild einfach nicht geladen wird ( FigurListe.GetBitmap(3, (findcomponent('Img'+inttostr(Bild)) as TImage).Picture.Bitmap) ). Setzte ich dafür zur Probe z.B. ein "Label1.Caprion := 'gehts?';" ein, funtzt es . Ich werde einfach nicht schlauer

[LoW_FloW]

da muss mir doch jemand helfen können
Kommt schon, ein bisschen Hilfe

[Sharky]

Zitat von LoW_FloW:

da muss mir doch jemand helfen können
Kommt schon, ein bisschen Hilfe

Hai Low_Flow,

was mir nicht klar ist warum Du mit FindComponent arbeitest?
Du möchtest doch nur das Bild auf das geklickt wurde durch ein anderes ersetzen.

[LoW_FloW]

Zitat von Sharky:

was mir nicht klar ist warum Du mit FindComponent arbeitest?

Ohne FindComponent habe ich das nicht hinbekommen: http://www.delphipraxis.net/internal...ct.php?t=19240

[LoW_FloW]

jetzt strengt euch doch mal an

[DelphiDeveloper]

habe mir den code mal angesehen
und nehme an, dass FigurListe von Typ TImageList ist und orgendwo
vorher instanziert wird und mit bildchen geladen.

was ist mit der globalen variablen klick?

ich verstehe aber die intention von folgender zeile nicht

Zitat:

if (X >= imgLeft) and (X <= imgLeft + ImgWidth) and
(Y >= ImgTop) and (Y <= ImgTop + ImgHeight) then
Bild := i;

[LoW_FloW]

Alles richtig. Mit X und Y ist die Koordinate des Mausklicks gemeint

[barnti]

Hi,

ein Bisserl OT:

Zitat:

...
if klick = true then
...

'Räusper'

Delphi-Quellcode:

...
if klick then
...

Vielleicht besser so...

[LoW_FloW]

Klick hat nix damit zu tun....
Das ist was anderes

[LoW_FloW]

Ach mann weiß das wirklich keiner