Ereignis einer zur Laufzeit erstellten Klasse

Schatten^parker · Hält's aus hier Beiträge: 9

Hi Leute ich hab ein Problem.
Ich habe eine Klasse Timage geschaffen die zur laufzeit erstellt wird. Jedoch kann man somit keine Ereignisse in die Images Implementieren.
Meine Frage nun, wie kann ich einer klasse ein onclick Ereignis zuordnen.

und wie sendet mir diese komponente ihren namen zurück.

danke

LCS · Verfasst: Sa 14.09.02 18:49

Hi
Hast du nun eine neue Klasse erstellt (dann wäre TImage ein denkbar schlechter Name) oder hast du ein Objekt vom Typ TImage in deinem Programm erzeugt?
Ich geh mal einfach vom zweiten aus. Dann musst du natürlich deine Ereignisprozeduren auch zur Laufzeit zuweisen. Die Prozedur brauchst du natürlich erst mal:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

type
  TForm1 = class(TForm)
  ...
    procedure ImgClick(Sender: TObject);
  ...
  ...

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

Wenn du dein Objekt erstellt hast, kannst du diese Prozedur zuweisen

markieren

Quelltext

1:
2:
3:

...
MeinErstelltesImage.OnClick := ImgClick;
...

Den Namen eines Objekts liefert die Eigenschaft Name. So du nach dem Erstellen überhaupt einen zugewiesen hast.

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

Schatten^parker · Hält's aus hier Beiträge: 9

TKarte = class(TImage)
somit habe ich eine klasse Timage erstellt die proceduren und so'n zeugs beinhaltet

jetzt werden aber zur laufzeit Objekte der Klasse(Timage) erschaffen deren namen ich nicht festlege, nur Position auf dem Formular und Bildquelle werden festgelegt. Und ich moechte das wenn man auf ein Image klickt eine Procedure aufgerufen wird, also durch ein Ereignis.

Vielleicht kannst du dir besser Vorstellen wenn du weisst das es ein Memmory Spiel werden soll bei dem alle Karten zur Laufzeit erzeugt werden.

DeCodeGuru · Beiträge: 1333 Erhaltene Danke: 1 Arch Linux Eclipse

Ich habe es jetzt zwar nicht so ganz verstanden. Nehmen wir an, du erstellt deine Objekte (is ja egal ob TImage oder irgendeine abgeleitete Klasse) in einem Array. Also in etwa so:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
  i: Integer;
  ImageArray: array [0..9] of TImage;
begin
  for i := 0 to 9 do
  begin
    ImageArray[i] := TImage.Create;
    with ImageArray[i] do
    begin
      ... //Hier Position und sowas angeben. Im Moment uninteressant
    end;
  end;
end;

Wenn du jetzt auf ein Bildchen klickst so zum Beispiel folgende Prozedure ausgelöst werden:

markieren

Quelltext

1:
2:
3:
4:

procedure TForm.DoClick(Sender: TObject);
begin
  ShowMessage('Klick');
end;

Damit diese Prozedur ausgelöst wird, musst du das OnClick-Ereignis, der erstellten Objekte mit der Prozedure verknüpfen. Dazu nehmen wird den ersten Code und fügen etwas hinzu:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var
  i: Integer;
  ImageArray: array [0..9] of TImage;
begin
  for i := 0 to 9 do
  begin
    ImageArray[i] := TImage.Create;
    with ImageArray[i] do
    begin
      ... //Und hier wieder die Posangaben und was weiss ich nicht alles
      OnClick := DoClick;
    end;
  end;
end;

Damit du aber die Images unterscheiden kannst, also, damit du unterscheiden kannst auf welches Image jetzt geklickt wurde, würde ich denen Namen vergeben. Das könnte man so machen (den Code anstelle des '...' einfügen):

markieren

Quelltext

1:	Name := 'MyImage'+i;

Somit hast du den Images einen eindeutigen Namen zugewiesen. Damit kannst du auch in der DoClick-Prozedure die Images unterscheiden.

Ich hoffe, ich konnte dir ein bisschen helfen bzw. dir die Sache verdeutlichen :wink:

_________________
Viele Grüße
Jakob

Schatten^parker · Hält's aus hier Beiträge: 9

Das ist ja alles ganz toll mit den array und so aber ich möchte das ohne sie machen. Ich moechte den Karte der Klasse Timage auch keine namen zuweisen.

Ich moechte lediglich eine Ereignisprocedure implementieren die beim klick auf die Images aufgerufen wird. Da die Images zur laufzeit erschaffen werden kann ich ihnen über den Objektinspektor keine Ereignisse zuteilen.

hier ist mal der code (newbie code also nicht lachen), vielleicht wisst ihr dann besser was ich moechte.

Der Code ist noch nicht lauffähig und die Erschaffung der Karten ist noch umständlich aber dieses Problem behebe ich später.....
Wie gesagt es handelt sich um ein MemmorySpiel, soll es jedenfalls mal werden.... DANKE!!!!!!!!!

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, extctrls;

type
  TKarte = class(TImage)
  private


  bildname : string;
  public

  procedure bildladen;
  procedure karteverdecken;
  procedure Karteaufdecken;
  Procedure Vergleichen;
  Procedure Punktezuweisen;
  Procedure Kartenloeschen;


  end;

type
  TFrm_Memmory = class(TForm)
    T_vergleichen: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure T_vergleichenTimer(Sender: TObject);

  private
    karte1,karte2,karte3 : Tkarte;
    { Private-Deklarationen }
  public

    { Public-Deklarationen }
  end;

var
  Frm_Memmory: TFrm_Memmory;
  karte: Tkarte;

implementation


procedure TKarte.bildladen;
begin
  self.Picture.LoadFromFile(self.bildname);

end;



procedure TKarte.karteverdecken;
begin
        self.visible:=false;
end;



procedure Tkarte.Karteaufdecken;
begin
        self.Visible:= true;
end;



Procedure tkarte.Vergleichen;
begin

end;



Procedure tkarte.Punktezuweisen;
begin
        If KARTE1.picture = KARTE2.Picture then do
        begin
        punktezuweisen;
        Kartenloeschen;
        end
                else
                tfrm_memmory.T_vergleichen.enabled:= false;
                        

end;


{$R *.DFM}
procedure TFrm_Memmory.FormCreate(Sender: TObject);
begin
karte1 := tkarte.Create(self);
karte1.Parent := self;
karte1.bildname := 'bilder\karte1.bmp';
karte1.bildladen;
karte2 := tkarte.Create(self);
karte2.Parent := self;
karte2.bildname := 'bilder\karte1.bmp';
karte2.bildladen;
karte2.Left := 100;
karte3 := tkarte.Create(self);
karte3.Parent := self;
karte3.bildname := 'bilder\karte2.bmp';
karte3.bildladen;
karte3.Left := 200;
end;



procedure TFrm_Memmory.T_vergleichenTimer(Sender: TObject);
begin
        KARTE1.Visible:= False;
        KARTE2.Visible:= False;
        T_vergleichen.enabled:= false;
end;

end.

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Schatten^parker hat folgendes geschrieben:

Ich moechte lediglich eine Ereignisprocedure implementieren die beim klick auf die Images aufgerufen wird.

Wie das geht hat LCS schon gepostet:

markieren

Quelltext

1:	MeinErstelltesImage.OnClick := ImgClick;

Außerdem hat es DeCodeGuru nochmals erklärt:

markieren

Quelltext

1:	OnClick := DoClick;

Gruß
TINO

Schatten^parker · Hält's aus hier Beiträge: 9

HarHarHar, es hat funktioniert, danke nochmal an alle

Schatten^parker · Hält's aus hier Beiträge: 9

Hab noch ne Frage, wenn ich nun auf die Karte Klicke, moechte ich dass mir der name der Karte zurückgeliefert oder in einer variablen gespeichert wird.
Wie die Karten erzeugt werden könnt ihr oben in meinem Quelltext nachlesen,
ist zwar etwas umständlich aber für den moment soll das so bleiben.

aogwaba · Beiträge: 109

Hi!

markieren

Quelltext

1:
2:
3:
4:
5:
6:

var KartenName:string;

procedure  TFrm_Memmory .Karte_wurde_angeklickt(sender:TObject);
begin
if sender is TKarte then KartenName:=sender.name;
end;

cu
waba

LCS · Verfasst: Di 17.09.02 07:52

Hi
kleine Korrektur:

markieren

Quelltext

1:
2:
3:
4:
5:
6:

var KartenName:string; 

procedure  TFrm_Memmory .Karte_wurde_angeklickt(sender:TObject); 
begin 
if sender is TKarte then KartenName:=TKarte(sender).name; 
end;

Sender ist ja als TObject deklariert und die gibts keine Eigenschaft Name.
Aber: Wenn du einen Namen willst, musst du deinen Objekten beim Erstellen erst mal nen Namen verpassen. Wurde weiter oben schon von DeCodeGuru beschrieben. Wenn du keine Arrays verwenden willst:

markieren

Quelltext

1:
2:
3:
4:
5:

...
karte2 := tkarte.Create(self); 
karte2.Parent := self; 
karte2.Name  := 'Karte2';
...

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

aogwaba · Beiträge: 109

Hi!
Nee, das ist schon richtig. Für das Vorhandensein des Name-Property sorgt ja der Vorgänger der TKarte->TImage. 'is' checkt ja die Instanz des Object's nicht die des Typ's.

markieren

Quelltext

1:
2:
3:

var myObject:TObject;
myObject:=TImage.create(self);
if (myObject is timage) then ...

cu
waba

LCS · Verfasst: Di 17.09.02 18:33

Hi

Zitat:

Für das Vorhandensein des Name-Property sorgt ja der Vorgänger der TKarte->TImage.

Nix dagegen einzuwenden. Trotzdem wird es ja zunächst mal vom Typ TObject übergeben. Die Eigenschaft Name ist zwar vorhanden, aber du kannst sie erst ansprechen, wenn du TObject wieder in TKarte castet. Versuchst du direkt Sender.Name ergibt das:

Zitat:

[Fehler] Unit1.pas(31): Undefinierter Bezeichner: 'Name'

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

aogwaba · Beiträge: 109

Hi!
Hast recht, der Typcst fehlt:

markieren

Quelltext

1:	if sender is TKarte then KartenName:=(sender as TKarte).name;

cu
waba

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme