![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
NTL |
![]()
Сообщение
#1
|
![]() Фанат Delphi ![]() ![]() Группа: Пользователи Сообщений: 72 Пол: Мужской Реальное имя: Сергей Репутация: ![]() ![]() ![]() |
Суть в след.: при наведении на один из 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; -------------------- ICQ (384-043-857)
|
![]() ![]() |
![]() |
Текстовая версия | 9.07.2025 18:46 |