Немного о картинках

Me1issaCherry

Дата: Четверг, 23.04.2009, 21:49 | Сообщение # 1

Лейтенант

Группа: Друзья

Сообщений: 46

Репутация: 1

Статус: Offline

Суть проблемы такова.. Нужно сделать так чтоб при нажатии на изображение оно увеличивалось или становилось на весь экран. а при нажатии допустим ПКМ снова уменьшалось

DxT

Дата: Четверг, 23.04.2009, 22:51 | Сообщение # 2

Генерал-полковник

Группа: Администраторы

Сообщений: 70

Репутация: 6

Статус: Offline

Обрабатывать событие OnMouseDown компонента TImage. Соответственно присваивать свойству формы WindowState значения wsNormal или wsMaximize

у события OnMouseDown есть переменная Button. Нужно проверять ее значения (mbLeft, mbRight, mbMiddle - что соответствует (по порядку) левой, правой и средней кнопкам мыши)

В одном метре 1024 километра

Me1issaCherry

Дата: Четверг, 23.04.2009, 22:54 | Сообщение # 3

Лейтенант

Группа: Друзья

Сообщений: 46

Репутация: 1

Статус: Offline

а как это в процедуре правильно прописать

DxT

Дата: Четверг, 23.04.2009, 22:55 | Сообщение # 4

Генерал-полковник

Группа: Администраторы

Сообщений: 70

Репутация: 6

Статус: Offline

перечитай пост внимательно) Тебе нужно событие обрабатывать, OnMouseDown

В одном метре 1024 километра

DxT

Дата: Четверг, 23.04.2009, 22:59 | Сообщение # 5

Генерал-полковник

Группа: Администраторы

Сообщений: 70

Репутация: 6

Статус: Offline

это если лень думать:

Code

procedure TForm4.Image1MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
begin
   if Button = mbLeft then
     WindowState := wsMaximized;
   else if Button = mbRight then
     WindowState := wsNormal;
end;

у Image свойство Align должно быть alClient, свойство Stretch должно быть True

В одном метре 1024 километра