Hej Keller
Prøv dette her:
Brug eventuelt timage i stedet for tshape:
unit Ushape;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TForm1 = class(TForm)
Shape1: TShape;
procedure FormCreate(Sender: TObject);
procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var i, j : integer;
sh : tshape;
begin
for i := 1 to 4 do
for j := 1 to 4 do
begin
sh := tshape.create(form1);
with sh do
begin
top := j*50;
left := i*50;
height := 40;
width := 40;
parent := form1;
shape := stroundrect;
onMousedown := Shape1MouseDown;
tag := j*100+i;
end;
end;
end;
procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
with tshape(sender) do
begin
brush.color := clred;
caption :=
'I = '+inttostr(tag mod 100)+ ' '+
'J = '+inttostr(tag div 100)
end;
end;
end.
mvh
Thomas Riedel
LogiHouse
--
Thomas Riedel, LogiHouse
"CK" <ck1978@hotmail.com> wrote in message
news:9n4k1b$c30$1@news.net.uni-c.dk...
> Hej gruppe.
> Jeg skal have genereret nogle oversigter over nogle sæder i en sal. Det
har
> jeg løst med nogle løkker der tegner rækkerne, men jeg vil også gerne have
> en onclick-procedure på hvert sæde, så de kan skifte farve. Hvordan laver
> jeg en onclick-event til et objekt der er dynamisk genereret?
> Takker
> Keller
>
>
|