dynamische Timage onclick

[simonko]

Ich hab jetzt Timages zur laufzeit erstellt in einer prozedur;

Delphi-Quellcode:

      s:=stacktostring(p);
      form1.bild[i]:= TImage.Create(form1);
      form1.bild[i].Parent:=form1;
      form1.bild[i].Left:=100+(i*20);
      form1.bild[i].Top:=250;
      form1.bild[i].Width:=60;
      form1.bild[i].Height:=90;
      form1.bild[i].Picture.LoadFromFile('C:\'+s+'.JPG');
      form1.bild[i].Visible:=true;

jetzt möcht ich aber dass jedes bild bei onclick etwas anderes macht. kann ich dass da noch irgendwie zuweisen? Ich bräuchte das s : string dass zu jeden bild zugewiesen wordn ist und es soll dann eine prozedur aufrufen die für jeden gleich ist. ich muss eigentlich nur den namen des bildes wissen.

vor allem versteh ich nicht wo ich das onclick reinschreiben muss. denn bei normalen Timage gibts ja die events onclick. aber bei diesen ist das etwas anders.. ich kenn mich nicht so aus


bitte um hilfe
MFG

[Ultimator]

Du könntest in dieser Schleife auch gleich allen Images-Kompos die gleich eOnClick-Prozedur zuweisen, und auch noch den Tag der Image-Kompos auf das aktuelle i setzen. Dann kannst du im Eventhandler überprüfen, welchen Tag die Kompo hat und je anchdem handeln.

[r2c2]

Hallo simonko
das geht eigentlich ganz einfach:

Delphi-Quellcode:

procedure MyImageClick(Sender: TObject);
begin
  with Sender as TImage do
  begin
    ShowMessage(Name);
    //oder
    if Tag = 25 then
      DoSomething;
    //oder mach was anderes mit deinem Bild
  end;
end;

...

form1.bild[i].OnClick := MyImageClick(Sender: TObject);

mfg

Christian

[jfheins]

Soweit ich weis, geht die Zuweisung dann aber so:form1.bild[i].OnClick := MyImageClick;

[sniper_w]

Daraus wird nichts.TNotifyEvent = procedure (Sender:TObject) of object und ihr bietet nurTNotifyEvent = procedure (Sender:TObject); Es muss also so deklariert sein:

Delphi-Quellcode:

procedure TFomr1.MyOnClick(Sender:TObject);
begin
 case TComponent(Sender).Tag of
  1:;
  2:;
  // usw....
 end;
end;

EDIT: und so sollte man die Images erstellen:

Delphi-Quellcode:

procedure TForm1.ErstelleImages(ImgCount:integer);
begin
  SetLength( bild, imgCount);
  for i:=0 to ImgCoun-1 do
  begin
    bild[i] := Timage.Create(Self);
    with Bild[i] do
    begin
      Parent := Self;
      // andere eigenschaften zuweisen
      Tag := i; // <<<<<-------SEHR WICHTIG !!!
      OnClick := MyOnClick;
    end;
  end;
end;

[jfheins]

Und dann nehmen wir am besten gleich eine Typed-Object-List und ausserdem schreiben wir z.B. statt TFomr1 TForm1

[r2c2]

Zitat von jfheins:

Soweit ich weis, geht die Zuweisung dann aber so:form1.bild[i].OnClick := MyImageClick;

Hast Recht!

mfg

Christian

//Edit: Hm.. da waren wohl noch einige Posts dazwischen.
Ich glaub die waren auch etwas ausführlicher.