Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

По какому рисунку был сделан клик? [D7, WinXP]

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

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

Evgenius (2004-12-26 10:01:00) [2]
Слушай, а где ты взял такой компонент и можно ли с его помощью поворачивать изображение не на 90 градусов, а скажем на 17???
Дай линк, пожалуйста...

Rem (2004-12-26 08:04:00) [3]
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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »