Danke für dein Tutorial Peter, das hat mir wirklich weitergeholfen. Ich kann jetzt viele Images in einem Array erstellen.
Die Member-Prozedur hab ich auch hinbekommen und das mit der Tag-Eigenschaft verstehe ich auch.
Das ist bis jetzt dabei herausgekommen:
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:
| procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=1 to 14 do
begin
Weiss[i]:=timage.create(self);
with Weiss[i] do
begin
parent:=form1;
name:='Weiss'+inttostr(i);
autosize:=true;
transparent:=true;
Weiss[i].Picture.LoadFromFile('.\WBall.bmp');
weiss[i].tag:=i;
if i<=5 then
begin
left:=205+i*50;
top:=148;
end;
if (i>5) and (i<=11) then
begin
left:=-70+i*50;
top:=192;
end;
if i>11 then
begin
left:=-295+i*50;
top:=236;
end;
end; |
Die Memberprozedur:
Delphi-Quelltext
1:
2:
| procedure Kugelpfeile(Sender: TObject; Shift: TShiftState; X,
Y: Integer); |
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| procedure TForm1.KugelPfeile(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var bildnummer:integer;
begin
if sender is timage then
bildnummer:=timage(sender).Tag;
end; |
Das einzige, was ich jetzt noch nicht hinbekomme ist, die OnClick-Prozeduren der Memberprozedur zuzuweisen.
Wo schreibe ich diese Zuweisung rein? In eine neue Prozedur? Wie deklariere ich die
OnClick(oder OnMouseMove)-Prozeduren? Kann ich alle diese OnClick-Prozeduren in eine schleife packen, um weniger schreiben zu müssen?
Ganz schön viele fragen... ich hoffe ihr habt den Nerv, sie mir zu beantworten - Danke!
Moderiert von 
Peter Lustig: Code- durch Delphi-Tags ersetzt
- toll.
