при произвольном нажатии мышкой, на форме созд кнопка

[KaZaaM]

при произвольном нажатии мышкой, на форме созд кнопка, при нажатии на кнопку она изм цвет на заданный.

вообще задача простая, но я чет не могу разобраться как это создать, цвет кнопки, типа: TButton1.Click .........TButton1.Color:=CCYellow;

а про нажатии на формe не помню, вроде тоже как то через клик..

[KaZaaM]

и еще вот одна: используя принцип наследования, задать классы, описывающие обычные и закрашенные прямоугольники. Предусмотреть выполнение с объектами этих классов след операций: создание , перемещение, повороот, масшабирование, удаление.

наброски:

TRectagle = class
center: point;
radius1: integer;
radius2: integer;
constructor create;
procedure draw; virtual;
procedure resize (k:real);
procedure move (dx, dy: integer);
end;
var
form1: TForm1;;
Fgr1:TRectangle;
implementation


constructor TRectangle.create;
begin
randomize;
center.x:=form1.image1.width div 2;
center.y:=form1.image1.width div 2;
radius1:=random(100)+10;
radius2:=random(100)+10;
end;
procedure TRectangle.Draw;
var
c:tcolor;
begin with form1.image.canvas do
begin 
c:=brush.color;
brush.color:=clwhite;
fillrect(form1.image1.canvas.cliprect);
brush.color:=c;
form1.image1.canvas.rectangle(center.x-radius1, center.y-radius2, center.x+radius1, center.y+radius2);
end;
end;

procedure Tform1.button1click(sender:tobject);
begin
if radiogriup1.itemindex=0 then
begin
fgr1:=trectangle.create:
fgr1.draw;
end;
end;
procedure trectangle.resize(k:real);
begin
radius1:=round(radius1*k);
radius2:=round(radius1*k);
end;

procedure tform1.button4click(sender:tobject);
begin
fgr1.resize(1.25);
fgr1.draw;
fgr2.resize(1.25);
fgr2.draw;
end;
procedure tform1.button5click(sender:tobject;
begin
fgr1.resize(0.8);
fgr1.draw;
fgr2.resize(0.8);
fgr2.draw;
end;

[KaZaaM]

up up up up up up

[KaZaaM]

up up up up up

[KaZaaM]

либо тут все тупые, либо все тут за бабло помогают, нахрена тогда эту тему было создавать!!!!!!