По какому рисунку был сделан клик?

← →
Viktop (2004-12-26 07:13) [0]

На форма имеется несколько компонентов TRotateImage (Позволяет вращать изображение), кнопка и компонент TstretchHandle (Позволяет перемещать компоненты по форме). Я делаю активным один из рисунков (TstretchHandle) и по нажатию кнопки надо повернуть активный рисунок на 90 градусов (TRotateImage). Как это можно сделать?
Если не знакомы с этими компонентами, то можно поставить вопрос по другому: сначала нажимаю на рисунке, потом кликаю по кнопке и с рисунком должно что-либо случиться.

← →
Rem © (2004-12-26 08:04) [1]

private
Img: TRotateImage;
...

procedure ...OnImageMouseUp(Sender: TObject...);
begin
if (Sender is TRotateImage) then
Img := TRotateImage(Sender)
else
Img := nil;
end;

procedure ...ButtonClick();
begin
if (Img <> nil) then
begin
Img.{поехали...}
...
end
else
MessageDlg("Выделите объект", mtInformation, [mbOK], 0);
end;

← →
Evgenius © (2004-12-26 10:01) [2]

Слушай, а где ты взял такой компонент и можно ли с его помощью поворачивать изображение не на 90 градусов, а скажем на 17???
Дай линк, пожалуйста...

← →
Viktop (2004-12-27 08:29) [3]

to Evgenius
Ну ты и спросил :-). Думаешь я помню? Заюзал поисковик и вот,чтоон выдал:
http://www.torry.ru/authorsmore.php?id=2301&SID=74473410684cdc47b44371ac24958af2

По какому рисунку был сделан клик? Найти похожие ветки