Methoden während der Laufzeit erstellter Objekte

[Flippo]

Hallo,
schonmal danke fürs reinschauen ich habe folgendes Problem:

Ich habe eine beliebige Anzahl von während der Laufzeit erstellten Shapes, wenn ich auf eines dieser Shapes klicke soll es sich verfärben. Und es soll ein Wert gespeichert werden, dass dieses Shape verfärbt ist.

Folgende 2 Ideen zur Lösung hatte ich bereits konnte sie nur nicht umsetzen:

1.Alle Shapes gehören der Klasse TMyShape an, können also von ihr Methoden erben, also habe ich mir gedacht, vieleicht kann man ja beim erzeugen die Ereignisse festlegen? Wenn das gehen würde, wie kann ich dann ein OnMouseDown Event für jedes einzelne Objekt beim erstellen mit erstellen?
So werden die Shapes erstellt:

Delphi-Quellcode:

procedure Bauen;
var i,x:integer;
begin
Spalten:= form1.Spinedit2.value;
Reihen:= form1.Spinedit1.value;
  for x:= 1 to Reihen do begin
     for i:=1 to Spalten do begin
     MyShape[i] := TMyShape.Create(Form1);
       with MyShape[i] do begin
       Parent := Form1;
       Height := 15;
       Width := 15;
       Shape:=strectangle;
       Left := 120+22*i;
       Top := x*22;
       end;
     end;
  end;
end;

2.Ein Onklick Event des Formulars bei dem Abgefragt wird welche position die Maus hat und dann mit der Position jedes Einzelnen Shapes verglichen wird. Hier ist es nur daran gescheitert, dass ich nicht weiss wie ich die Maus-Position bei Onklick ermittle.

Für alle Antworten schonmal Dankeschön im voraus.

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[jfheins]

Für die Mausposition musst du OnMouseDown verwenden

P.S. mitte umschließe deinen Quelltext mit

Delphi-Quellcode:

 und

[xineohp]

moin,

du musst eine procedure "procedure ShapeClick(Sender: TObject)" (der Name ist natürlich beliebig) deklarieren und implementieren. Wenn du dann dein Shape erzeugst einfach noch ein "myShape.OnClick := ShapeClick;" hinzufügen.

[Christian Seehase]

Moin Flippo,

Zitat:

Zitat von Flippo

wie kann ich dann ein OnMouseDown Event für jedes einzelne Objekt beim erstellen mit erstellen?

erstellen kannst Du es nicht, Du kannst nur eine bestehende Prozedur die beim MouseDown aufgerufen werden soll zuweisen.

In der Eigenschaft Tag des Shapes kannst Du Dir übrigens merken, ob es umgefärbt wurde oder nicht.

[DP-Maintenance]

Dieses Thema wurde von "Christian Seehase" von "Object-Pascal / Delphi-Language" nach "VCL-Komponenten und Controls" verschoben.
Es geht um VCL-Komponenten

[Flippo]

So, danke schonmal für alle Antworten, ich glaub das was xineohp mir geschrieben hat war das was ich wollte, nur hab ich das problem ich kriegs immernoch nich t hin habe jetzt folgendes

Delphi-Quellcode:

procedure ShapeClick(Sender:TObject);
begin

end;

....

procedure Bauen;
var i,x:integer;
begin
Spalten:= form1.Spinedit2.value;
Reihen:= form1.Spinedit1.value;
  for x:= 1 to Reihen do begin
     for i:=1 to Spalten do begin
     MyShape[i] := TMyShape.Create(Form1);
       with MyShape[i] do begin
       Parent := Form1;
       Height := 15;
       Width := 15;
       Shape:=strectangle;
       Left := 120+22*i;
       Top := x*22;
       MyShape.OnClick:=ShapeClick;
       end;
     end;
  end;
end;

....

aber das kommt dann folgende Fehlermeldung:
-Record Object oder Klassentyp erforderlich
-Inkompatible Typen:Methodenzeiger und reguläre Procedure

was kann ich dagegen tun?

[Luckie]

Mach mal ShapeKlick() zu einer Methode der Form-Klasse.

[Flippo]

Ähm hoert sich vieleicht blöd an aber ich weiss jetz nich genau was du meinst

[Gruber_Hans_12345]

Delphi-Quellcode:

type
  TForm1= class(TForm)
  public
    procedure ShapeClick(Sender:TObject);
    procedure Bauen;
  end;


....


procedure TForm1.ShapeClick(Sender:TObject);
begin

end;

....

procedure TForm1.Bauen;
var i,x:integer;
begin
Spalten:= Spinedit2.value;
Reihen:= Spinedit1.value;
  for x:= 1 to Reihen do begin
     for i:=1 to Spalten do begin
     MyShape[i] := TMyShape.Create(Form1);
       with MyShape[i] do begin
       Parent := Form1;
       Height := 15;
       Width := 15;
       Shape:=strectangle;
       Left := 120+22*i;
       Top := x*22;
       MyShape.OnClick:=ShapeClick;
       end;
     end;
  end;
end;

....

[/quote]

[Luckie]

Zitat:

Zitat von Flippo

Ähm hoert sich vieleicht blöd an aber ich weiss jetz nich genau was du meinst

Dann wird es Zeit, dass du dich mal mit den Grundlagen zu Delphi und OOP beschäftigst.

[Flippo]

Das habe ich auch schon ausprobiert, wars leider nich, wusste halt nich was du meinst :oops: ,
aber trotzdem Danke

[Gruber_Hans_12345]

ups ....

natürlich so :

Delphi-Quellcode:

.....
procedure TForm1.Bauen;
var i,x:integer;
begin
Spalten:= Spinedit2.value;
Reihen:= Spinedit1.value;
  for x:= 1 to Reihen do begin
     for i:=1 to Spalten do begin
     MyShape[i] := TMyShape.Create(Form1);
       with MyShape[i] do begin
       Parent := Form1;
       Height := 15;
       Width := 15;
       Shape:=strectangle;
       Left := 120+22*i;
       Top := x*22;
       MyShape[i].OnClick:=ShapeClick;   < ==================
       end;
     end;
  end;

[Flippo]

Ja hab ich mir schon gedacht funzt leider aber immernoch nicht

[Gruber_Hans_12345]

Dann schreib mal die genaue Fehlermeldung die du bekommst und mit welchem Code.

[Neutral General]

Delphi-Quellcode:

procedure TForm1.Bauen; 
var i,x:integer; 
begin 
Spalten:= Spinedit2.value; 
Reihen:= Spinedit1.value; 
  for x:= 1 to Reihen do begin 
     for i:=1 to Spalten do begin 
     MyShape[i] := TMyShape.Create(Form1); 
       with MyShape[i] do begin 
       Parent := Form1; 
       Height := 15; 
       Width := 15; 
       Shape:=strectangle; 
       Left := 120+22*i; 
       Top := x*22; 
       OnClick:=ShapeClick;   
       end; 
     end; 
  end;

So muss es gehn :wink:

[Flippo]

Delphi-Quellcode:

unit Unit1;

interface

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

type


TMyShape=class(TShape)
private
Farbe:String;
end;


type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }

    procedure ShapeClick(Sender:TObject);
    procedure Bauen;
  end;

var
  Form1: TForm1;
  StartX, StartY: Integer;
  Spalten,Reihen:integer;
  MyShape: array[1..225] of TMyShape;

implementation

{$R *.DFM}


procedure ShapeClick(Sender:TObject);
begin

end;

procedure Bauen;
var i,x:integer;
begin
Spalten:= form1.Spinedit2.value;
Reihen:= form1.Spinedit1.value;
  for x:= 1 to Reihen do begin
     for i:=1 to Spalten do begin
     MyShape[i] := TMyShape.Create(Form1);
       with MyShape[i] do begin
       Parent := Form1;
       Height := 15;
       Width := 15;
       Shape:=strectangle;
       Left := 120+22*i;
       Top := x*22;
       MyShape[i].OnClick:=ShapeClick;
       end;
     end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Bauen;
end;
end.

Unit1.pas[66]:Inkompatible Typen: Methodenzeiger und reguläre Procedure
Unit1.pas[31]:Ungenügende Forward Externel Deklaration 'Form1.Shape1.CLick'
Unit1.pas[32]:Ungenügende Forward Externel Deklaration 'Form1.Bauen'

[Neutral General]

Delphi-Quellcode:

unit Unit1;

interface

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

type


TMyShape=class(TShape)
private
Farbe:String;
end;


type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }

    procedure ShapeClick(Sender:TObject);
    procedure Bauen;
  end;

var
  Form1: TForm1;
  StartX, StartY: Integer;
  Spalten,Reihen:integer;
  MyShape: array[1..225] of TMyShape;

implementation

{$R *.DFM}


procedure TForm1.ShapeClick(Sender:TObject);  // TForm1.  nicht vergessen
begin 
  // Damit was passiert musst du natürlich auch was reinschreiben ;-)
end;

procedure Bauen;
var i,x:integer;
begin
Spalten:= form1.Spinedit2.value;
Reihen:= form1.Spinedit1.value;
  for x:= 1 to Reihen do begin
     for i:=1 to Spalten do begin
     MyShape[i] := TMyShape.Create(Form1);
       with MyShape[i] do begin
       Parent := Form1;
       Height := 15;
       Width := 15;
       Shape:=strectangle;
       Left := 120+22*i;
       Top := x*22;
       OnClick:=ShapeClick;  // ohne MyShape[i]
       end;
     end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Bauen;
end;
end.

Sooo geht das 100%ig :zwinker:

[Gruber_Hans_12345]

und natürlich noch ...

Delphi-Quellcode:

procedure TForm1.ShapeClick(Sender:TObject);  // TForm1.  nicht vergessen
begin
  // Damit was passiert musst du natürlich auch was reinschreiben ;-)
end;

procedure TForm1.Bauen; 
....

[Flippo]

:bouncing4: :bouncing4: :bounce1: :bounce1: :cheers: :bounce1: :bounce1: :bouncing4: :bouncing4:
:firejump: :firejump: :bounce2: :bounce2: :bounce2: :firejump: :firejump: :dancer2: :hello:


Echt ganz großes Dankeschön an alle speziell an General und Hans :hi: