Hallo,

ich habe ein Problem, was wahrscheinlich ganz Banal zu Lösen ist. Ich erstelle zur Laufzeit eine neue Seite (Tab) in einer PageControl-Komponente. Und auf der Seite wird ein Bild erstellt. Die Bilder der verschiedenen Tabs sind in einem TImage-Array gespeichert.
Bilder: array of TImage Der Index des Bildes ist identisch mit dem Index des Tabs in dem das Bild erstellt wurde.

Ich möchte jetzt folgendes erreichen bei dem Klick auf eines der Bilder aus dem Arrays soll ein Ereignis ausgelöst werden. Wie definiere ich dieses Ereignis für die Bilder?

Den Index des Bildes könnte ich ganz einfach ermitteln:
PageControl.ActivePage Dies ist möglich, da ja immer nur das Bild, dass zu der gerade aktiven Seite gehört, geklickt werden kann.

Bilder[i].OnClick := DeinOnClickEreignis wobei DeinOnClickEreignis etwa so aussieht:

markieren

Delphi-Quellcode:

private
  procedure DeinOnClickEreignis(Sender : TObject);

markieren

Delphi-Quellcode:

implementation

//...

procedure TForm1.DeinOnClickEreignis(Sender : TObject);
begin
end;

Zitat:

[Pascal Error] pfs_MainUnit.pas(151): E2010 Incompatible types: 'TObject' and 'Tobject'

Irgendwie hat der damit ein Problem...
bild[i].Onclick:=Image1Click; Image1 ist auch auf der Form. das OnImage1Click ereignis löst nur "showmessage" aus. Wenn man auf das entsprechende Image klickt dann macht er das auch. Allerdings kompiliert der die Unit nicht wegen obiger Zuweisung.

mfg KahPee

Der Fehler tritt bei mir bei JEDER Zuweisung eines Ereignisses dieser art auf, auch wenn ich das ganze mit einem Label mache. Woran könnte das liegen? in einem anderen Programm funktioniert ähnliches

Poste mal bitte ein bisschen mehr von deinem Code. So kann man nicht sehen was dort falsch ist.

Deklaration:
var pagepic: array of Timage; Array vergrößern

markieren

Delphi-Quellcode:

SetLength(pagepic, Length(pagepic)+1); //Array vergrößern
  index:=length(pagepic-1); //etwas mit dem letzten Object im Array machen
  pagepic[index]:=Timage.Create(self);
  pagepic[index].Onclick:=Image1Click;

Image1Click ist eine funktionierende Prozdeur wie oben schon beschrieben. Kann es sein, dass das was mit Objekten in dynamischen arrays zu tun hat?

mfg KahPee

Lad mal bitte deine ganze Unit mit hoch.

Das ganze Projekt besteht aus mehreren Units unten die MainUnit und die Unit mit den Declarationen. Die anderen Units sind unrelevant.

Ah OK. Nun verstehe ich:

Du hast folgendes:

markieren

Delphi-Quellcode:

Tobject=record //Objekte
    Typ: Tobjecttyp;
  end;

Wobei Delphi ja selber ein Typen von TObject hat. Dort kommt der durch einander. Benne das um und es funktioniert

argh... so was blödes..

Vielen Dank!! Ich bin noch dabei den Schritt vom Anfänger zum Fortgeschrittenen Programmierer zu machen

KahPee