Entwickler-Ecke :: Thema anzeigen - Shape Array onMouseDown Ereignis zuordnen

Bodhi - Do 29.12.05 17:23
Titel: Shape Array onMouseDown Ereignis zuordnen

Hi,
hoffe ihr könnt mir helfen.

Mein Problem ist folgendes:
Habe folgendes Array erstellt: newshp:array[1..10,1..10] of TShape;
und in Schleife initialisiert. Hat auch alles geklappt.
Doch nun möchte ich dem Array ein onMouseDown Ereignis zuordnen und
habe keine Ahnung wie ich das tun soll. (Alle 100 Elemente hätten den
selben code.)
Danke im Voraus.

MFG
Bodhi

Bodhi - Do 29.12.05 18:13
Titel: Shape Array onMouseDown Ereignis zuordnen

Und wie soll ich das Anstellen?
Folgende Schleife existiert bereits:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

/////////////////////////////////////////////
//Erzeugung der 10*10 TShapes //       
///////////////////////////////////////////       
FOR x:=1 TO 10 DO                      
BEGIN                                  
Top:=Top+31;                           
     Left:=50;                         
for y:=1 to 10 do                      
begin                                  
newshp[x][y]:=tshape.Create(form1);    
newshp[x][y].Parent:=form1;            
newshp[x][y].Height:=height;           
newshp[x][y].Width:=width;             
newshp[x][y].Left:=left;               
left:=left+31;                         
newshp[x][y].Top:=Top{*y};             
                                       
end;                                   
END;
/////////////////////////////////////////////

Doch wenn ich newshp[x][y].onmousedown(...)
benutze habe ich keine Ahnung, welche Parameter ich
übergeben soll und wo ich die Behandlungsrotine einzufügen
habe.
Bitte schreibt mir Codebeispiele.

Danke im Voraus.

Moderiert von raziel: Delphi-Tags hinzugefügt

Opa - Do 29.12.05 22:04

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.ShapeMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
  with TShape(Sender) do
    case Tag of
      000:; // Ereignis  von Shape   1
      001:; // Ereignis  von Shape   2
      100:; // Ereignis  von Shape 100
    end;
end;
//-----------------------------------------
FOR x:=1 TO 10 DO                        
BEGIN                                    
Top:=Top+31;                             
     Left:=50;                           
for y:=1 to 10 do                        
begin                                    
  //...
  newshp[x][y].Tag:= Y-1+10*(X-1);
  newshp[x][y].OnMouseDown := ShapeMouseDown;                                         
end;                                     
END;

MFG

Moderiert von raziel: Code- durch Delphi-Tags ersetzt

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!