Событие image для изменения размеров

@sys user · Регистрация: 11.03.2012

Студворк — интернет-сервис помощи студентам

подскажите пожалуйста какое событие следует использовать что бы при наведении на image менялся его размер. не знаю на какое событие следует прикрепить код изменения размера.

@БогДелфей · 19.06.2012, 23:40

MouseMove

@Tanchik_Z · 19.06.2012, 23:44

Если увеличивается на определенный размер например

Delphi
1
2
Image1.Width:=200;
image1.Height:=200;

то можно в OnMouseMove
а если типа такого

Delphi
1
2
Image1.Width:=Image1.Width+200;
image1.Height:=image1.Height+200;

то лучше при нажатии на рисунок OnClick, что бы менялось, а то увеличиваться будет пока курсор двигается по рисунку

@sys user · 20.06.2012, 00:03 **[ТС]**

просто я хочу что бы при наведении на image увеличивался его размер а когда курсор не наведен на image то что бы размер становился исходным только не знаю на какое событие привязать код увелечения и код уменьшения. я так понимаю нужно событие когда наводится мыш и событие когда мышь пропадаем с image

@Tanchik_Z · 20.06.2012, 09:37

Можно так попробовать

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var m:tmouse;
begin
Image1.Stretch := false
 
end;
 
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image1.Stretch := true
end;

вообщем поэкспериментировать с этими событиями для формы и изображния

@Z3oM · 20.06.2012, 15:39

Недавно сталкивался с такой проблемой =) Вот что помогло =)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Timer1Timer(Sender: TObject);
var i : integer;
    r : TRect;
    pt: TPoint;
    b : Boolean;
begin
  GetCursorPos(pt);
  pt := ScreenToClient(pt);
  b := False;
  for i:=0 to Form1.ControlCount-1 do
  begin
    r := Controls[i].BoundsRect;
    if (pt.x >= r.Left) and (pt.x <= r.Right) and
       (pt.y >= r.Top)  and (pt.y <= r.Bottom) then
    begin
      b:=True;
      // через Controls[i].Name он нам доступен
      PlaneteAction:=Controls[i].Name;
      break;
    end;
  end;
end;

Код с форума Cyberforum! Перерыл форум =)) Но нашел =)) Автора не помню. Чистил барузер не могу проверить!

Проверяет множество TImage что очень удобно! а потом уже присваиваешь процедурку

Delphi
1
2
3
4
5
procedure TForm1.PlaneteClick(Sender: TObject);
var I:integer;
begin
ShowMessage('Выбран рисунок: '+PlaneteAction);
end;

Самому Image
Естесно процедура может быть какая угодно! Просто для примера кинул в пост!

@Tanchik_Z · 20.06.2012, 16:01

Z3oM, а что такое Planete?

@antikiler_ · 20.06.2012, 16:13

Tanchik_Z,
Смотри лучше тут

@Z3oM · 20.06.2012, 19:26

Сообщение от antikiler_

Tanchik_Z,
Смотри лучше тут

Спасибо что указал ссылку на оригинал! =)

Новые блоги и статьи Все статьи Все блоги /
Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .	PowerShell и онлайн сервисы. Валюта (floatrates.com руб.) iNNOKENTIY21 11.11.2025 PowerShell функция floatrates-rub Примеры вызова: # Указанная валюта 'EUR' floatrates-rub -Code 'EUR' # Список имеющихся кодов валют floatrates-rub -Available function floatrates-rub {
PowerShell и онлайн сервисы. Погода (RP5.ru) iNNOKENTIY21 11.11.2025 PowerShell функция Get-WeatherRP5rss для получения погоды с сервиса RP5 Примеры вызова Get-WeatherRP5rss с указанием id 5484 — Москва (восток, Измайлово) и переносом строки:. . .	PowerShell и онлайн сервисы. Погода (wttr) iNNOKENTIY21 11.11.2025 PowerShell Функция для получения погоды с сервиса wttr Примеры вызова: Погода в городе Омск с прогнозом на день, можно изменить прогноз на более дней, для этого надо поменять запрос:. . .	PowerShell и онлайн сервисы. Валюта (ЦБР) iNNOKENTIY21 11.11.2025 # Получение курса валют function cbr (] $Valutes = @('USD', 'EUR', 'CNY')) { $url = 'https:/ / www. cbr-xml-daily. ru/ daily_json. js' $data = Invoke-RestMethod -Uri $url $esc = 27 . . .	И решил я переделать этот ноут в машину для распределенных вычислений Programma_Boinc 09.11.2025 И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .	Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.

@sys user 3 / 3 / 0 Регистрация: 11.03.2012 Сообщений: 68

	Событие image для изменения размеров 19.06.2012, 23:33. Показов 2589. Ответов 8 Метки нет (Все метки) подскажите пожалуйста какое событие следует использовать что бы при наведении на image менялся его размер. не знаю на какое событие следует прикрепить код изменения размера. 0

@БогДелфей 474 / 337 / 36 Регистрация: 31.05.2011 Сообщений: 1,164
	19.06.2012, 23:40
	MouseMove 0

@sys user 3 / 3 / 0 Регистрация: 11.03.2012 Сообщений: 68
	20.06.2012, 00:03 [ТС]
	просто я хочу что бы при наведении на image увеличивался его размер а когда курсор не наведен на image то что бы размер становился исходным только не знаю на какое событие привязать код увелечения и код уменьшения. я так понимаю нужно событие когда наводится мыш и событие когда мышь пропадаем с image 0

@Tanchik_Z 106 / 79 / 21 Регистрация: 16.04.2012 Сообщений: 215
	20.06.2012, 16:01
	Z3oM, а что такое Planete? 0

@antikiler_ 1085 / 571 / 79 Регистрация: 07.04.2011 Сообщений: 971 Записей в блоге: 2
	20.06.2012, 16:13
	Tanchik_Z, Смотри лучше тут 1

Опции темы