![]() |
Прежде чем задать вопрос, смотрите 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)
|
![]() ![]() |
NTL |
![]()
Сообщение
#2
|
![]() Фанат Delphi ![]() ![]() Группа: Пользователи Сообщений: 72 Пол: Мужской Реальное имя: Сергей Репутация: ![]() ![]() ![]() |
Код procedure TForm1.FormCreate(Sender: TObject); begin Shape2.OnMouseMove:=Shape1.OnMouseMove; Shape3.OnMouseMove:=Shape1.OnMouseMove end; Добавлено через 44 сек. Другим способом нельзя связать? -------------------- ICQ (384-043-857)
|
![]() ![]() |
![]() |
Текстовая версия | 10.07.2025 9:18 |