Релиб / Программирование / Delphi / Одинаковый код для нескольких картинок / Latest Posts

RE: Одинаковый код для нескольких картинок

vpanasenko — Mon, 23 Apr 2007 13:11:11 GMT

а в коде слабо присвоить ?

RE: Одинаковый код для нескольких картинок

Tinki87 — Fri, 20 Apr 2007 23:57:55 GMT

А я все переиначил, пересыпал - пусть по-другому работает.
НО! Волею провидения я узнал, что через "инспектор объектов" в OnClick, например Image6, можно прописывать, например Form1.Image2OnClick.
По совести говоря, не самый логичный путь присвоения. Зато нашел!

Неисповедимы пути мысли в мозгу.

RE: Одинаковый код для нескольких картинок

vpanasenko — Wed, 18 Apr 2007 23:55:31 GMT

Программу пишем мы, или ты ?!!!

RE: Одинаковый код для нескольких картинок

Tinki87 — Wed, 18 Apr 2007 23:44:57 GMT

Благодарю за "волшебный пендель" в нужном направлении. Хотя я в силу бегинерского знания делфи и времени суток не особо воткнул в суть советов, но в итоге разродился на решение.

Написал процедуру PicMove(Sender: TObject, Posil: Boolean)
Которая реагирует на определенную группу sender'ов, и в зависимости от булевой прилепляет или отлепляет координаты картинки к мышиным.

Только я вот на ночь глядя не опробывал. Пузо у процедуры такое:
while posil do
setbounds(blablabla);

Если вызывать процедуру в процессе ее выполнения но уже с posil:=false, этот цикл остановится или придется его как-то извне прерывать?

RE: Одинаковый код для нескольких картинок

vpanasenko — Wed, 18 Apr 2007 10:47:33 GMT

Сейчас прочитал на свежу голову твой пост. Все твои "проблемы" решаются использованием параметра Sender...Пишешь ОДИН обработчик, чепляешь НА ВСЕ картинки и в коде пишем что-то типа

with (Sender as TImage) do

begin

BeginDrag;

и что там тебе еще нужно

end;

Обработчик будет работать с тем обьектом, с которым ты сейчас реально работаешь. Можешь к кординатам доступ получить и чему хочешь..Дерзай..

RE: Одинаковый код для нескольких картинок

vpanasenko — Wed, 18 Apr 2007 08:33:21 GMT

[quote][b]Tinki87 (18.04.2007)[/b][hr]Ух ты! Какое конструктивное решение! Если бы я был согласен на компромиссы, я бы сюда не пОстился:]

Суть проблемы - надо, чтобы каждую из 20 картинок можно было перетягивать в любое место на форме. Я это делаю сквозь MouseDown/Move/Up и потом SetBounds (кстать, если есть более рациональный метод, буду признателен). 20x60=120:/ Многовато будет, однако.

А если пойти другим путем: универсальная процедура(функция), к которой передается имя имаги-отправителя(как?:/), чтобы при этом еще и завершалось событие-отправитель(хотя злобный принцип стека мне это сделать по-ходу не даст:/)?[/quote]
Не дочитал с просонья...В эти обработчики уже все передается.

RE: Одинаковый код для нескольких картинок

vpanasenko — Wed, 18 Apr 2007 08:31:41 GMT

Решение конструктивное. У каждого компонента есть такое св-во как Tag. целое. по умолчанию 0. Так же обработчку (MouseMove и т.д.). в качестве параметра передается обьект, с которым происходит данное событие(sender). Далее уже идет первый класс, первая четверть
case (sender as TImage).Tag of
1 :
2 :
...
20:
end;//case

или
if (Sender as TImage).Name='Image1' then
ShowMessage('Image1');
if (Sender as TImage).Name='Image2' then
ShowMessage('Image2');

RE: Одинаковый код для нескольких картинок

Tinki87 — Wed, 18 Apr 2007 01:08:51 GMT

Ух ты! Какое конструктивное решение! Если бы я был согласен на компромиссы, я бы сюда не пОстился:]

Суть проблемы - надо, чтобы каждую из 20 картинок можно было перетягивать в любое место на форме. Я это делаю сквозь MouseDown/Move/Up и потом SetBounds (кстать, если есть более рациональный метод, буду признателен). 20x60=120:/ Многовато будет, однако.

А если пойти другим путем: универсальная процедура(функция), к которой передается имя имаги-отправителя(как?:/), чтобы при этом еще и завершалось событие-отправитель(хотя злобный принцип стека мне это сделать по-ходу не даст:/)?

RE: Одинаковый код для нескольких картинок

vpanasenko — Tue, 17 Apr 2007 22:45:24 GMT

а по одному реализовать и подцепить К КАЖДОМУ один и тот же обработчик слабо ?

Одинаковый код для нескольких картинок

Tinki87 — Mon, 16 Apr 2007 14:18:57 GMT

На форме расположены штук 20 картинок. Каждой из них необходимо присвоить одинаковую реакцию на несколько действий (MouseClick/Move/Up...)
Получается портянка одного и того же кода на 20 метров(погонных:)).

Как написать универсальный обработчик?