VPF::Куча TImage'й и один TPopupMenu - Форум программистов

W1zArD

Дата 11.10.2006, 21:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 285
Регистрация: 29.1.2006

Репутация: 3
Всего: 3

не делать же мне для каждого image свой popup??!! еще и код одинаковый...
типа image1.picture.savetofile smile

как поступить "умнее"?

эта тема связанна с http://www.forum.vingrad.ru/index.php?showtopic=115539

просьба администрации не удалять... smile

(просто уже не знаю какой выход найти из положения)

Alexeis

Дата 11.10.2006, 21:22 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

W1zArD, может просто в Object Inspector назначтить один и тот же popup всем компонентам TImage?

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Yanis

Дата 11.10.2006, 21:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Код

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TImage then
      begin
        (Components[i] as TImage).PopupMenu := PopupMenu1;
      end;
end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
  img: TControl;
begin
  img := ControlAtPos(ScreenToClient(Mouse.CursorPos), False);
  if (img is TImage) then
    (img as TImage).Picture.SaveToFile('path');
end;

Добавлено @ 21:31

Цитата(alexeis1 @ 11.10.2006, 22:22

)

W1zArD, может просто в Object Inspector назначтить один и тот же popup всем компонентам TImage?

Назначить то назначит, а вот как сохранить из того имейджа на котором кликнули он не знает как.

Это сообщение отредактировал(а) Yanis - 11.10.2006, 21:33

--------------------

*щёлк*

Alexeis

Дата 11.10.2006, 22:15 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(Yanis @ 11.10.2006, 21:31

)

сохранить из того имейджа на котором кликнули он не знает как.

Знает, знает smile

в предыдущей теме делали smile

--------------------

Snowy

Дата 11.10.2006, 22:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(alexeis1 @ 11.10.2006, 22:15

)

Знает, знает в предыдущей теме делали

Это где через сендера?
Нет, не получится.
Sender здесь менюитем.
Вот так нуно:

Код

procedure TForm1.DoIt1Click(Sender: TObject); // это онклик на менюитеме
var c: TControl;
begin
  c := ControlAtPos(PopupMenu1.PopupPoint, false, true); // взять контрол в месте всплытия попупки
  if c is TImage then TImage(c).Picture.SaveToFile('C:\file.bmp'); // если картина, то храним
end;

W1zArD

Дата 12.10.2006, 20:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 285
Регистрация: 29.1.2006

Репутация: 3
Всего: 3

спасибо! проверю... smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »