Ich habe im Quellcode mehrere TImage Felder in einem array erstellt. Nun möchte ich, wenn man ein imagefeld anklickt, das die Position ermittelt wird und ausgegeben wird. Wie komme ich an den Wert ran? Und vor allem wie weiß ich um welches imagefeld es sich handelt?

Sollte nicht Sender dann das Imagefeld sein?

Mal so ausm Bauch raus:

markieren

Delphi-Quellcode:

if Sender is TImage then begin
  ShowMessage(TImage(Sender).Name);
end;

Gruß
Luggi

Zitat von grl:

Sollte nicht Sender dann das Imagefeld sein?

Mal so ausm Bauch raus:

markieren

Delphi-Quellcode:

if Sender is TImage then begin
  ShowMessage(TImage(Sender).Name);
end;

Gruß
Luggi

Danke
Hab mal geguckt ob er generell was macht wenn man auf ein imagefeld klickt
Resultat nichts. Wenn ich Objekte im Quellcode erstelle muss man da bezüglich ....Click und so was beachte? Hatten bis jetzt eigentlich nur, dass wir uns z.b. Einen Button aufs Formular ziehen und dort die Procedere 1click auswählen.

Ja hast du denn dem erstellten Image ein Click-Ereignis zugewiesen?

Also ungefähr so:

markieren

Delphi-Quellcode:

Image:=TImage.Create(self);
Image.OnClick:=MeinOnClick;

Luggi

Zitat von grl:

Ja hast du denn dem erstellten Image ein Click-Ereignis zugewiesen?

Also ungefähr so:

markieren

Delphi-Quellcode:

Image:=TImage.Create(self);
Image.OnClick:=MeinOnClick;

Luggi

zusammenfalten · markieren

Delphi-Quellcode:

Procedure TForm2.Bildzeigen(Namebild:string;Bild:string; x3:integer; y3:integer);

begin
  feld[x3,y3].Name := Namebild;
  feld[x3,y3].Bild := Timage.create(Form2);

  feld[x3,y3].Bild.parent := Form2;
  feld[x3,y3].Bild.top := x3*40;
  feld[x3,y3].Bild.left := y3*40;
  feld[x3,y3].Bild.Picture.LoadFromFile(Bild);
  feld[x3,y3].Bild.visible:=true;
end;

wo muss das hin?

Zitat von cello:

  feld[x3,y3].Bild := Timage.create(Form2);

Irgendwo da danach sonst ist das TImage ja noch nicht erzeugt.

Und ich würde nicht auf die Variable Form2 zugreifen sondern stattdessen self benutzen - neben der Tatsache, daß es schlechter Stil ist macht der direkte Zugriff auf so eine Variable immer dann Probleme wenn du das Formular nicht als Form2 erzeugst.

Also so:

markieren

Delphi-Quellcode:

  feld[x3,y3].Bild := Timage.create(self);
  feld[x3,y3].Bild.parent := self;

Luggi

Zitat von cello:

... mehrere TImage Felder in einem array erstellt

Sind die Images alle gleich gross?
Sind die Images in einem 2-dimensionalen Array angeordnet wie z.B. bei einem Schachbrett oder 4-Gewinnt Spiel?
(sieht wohl ganz so aus)

Falls ja, dann bist du mit einem Drawgrid besser bedient als mit so vielen Images.

mit     showmessage (TImage(Sender).name); kann ich dadrauf aber nicht zugreifen

Worauf zugreifen?

Eigentlich solltest du mittlerweile wissen, daß wir alle nicht hellsehen können und nicht raten wollen.

Also: Sourcecode posten, Fehler genau beschreiben und du bekommst sicher bald eine brauchbar Antwort.

Luggi