Светофор.Shape Опции

[NTL]

Суть в след.: при наведении на один из 3-х Shape' ов и его цвет изменяется на более яркий. Вроде все правильно, но нужного рез-ата нет.Помогите плз...

Код

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Shape1.Brush.Color:=clMaroon;
Shape2.Brush.color:=clOlive;
Shape3.brush.Color:=clGreen;
with (Sender as TShape).Brush do
Case Color of
   clOlive: Color:=clYellow;
   clMaroon: Color:=clRed;
   clGreen: Color:=clLime;
end;

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Shape1.Brush.Color:=clMaroon;
Shape2.Brush.color:=clOlive;
Shape3.brush.Color:=clGreen;
end;

[Алена]

Ну здесь как раз и проверяется, какой шейп выбран для выполнении это процедуры

Угу... Только вот программа-то и не знает, что при прохождении мыши над вторым и третьим шейпом надо вызвать этот метод. Если его вызвать, он заработает...

Ты проверь, есть ли у тебя ссылка на метод в Инспекторе (выбираешь Shape2, ObjectInspector вкладка Events, и смотри, есть ли метод, который связан с OnMouseMove).

Сообщение отредактировано: Алена - 20.03.2007 22:13