|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.01.2018, 07:44 | #1 |
Пользователь
Регистрация: 05.12.2017
Сообщений: 69
|
Delphi.Изучаем английский. Работа с фигурами, таймером, мультимедийным проигрывателем, двойными кнопками и индикатором состояния. Перетягивание объектов в окне программы.
Здравствуйте.
Написала по учебнику код, но почему-то ругается на procedre SetPicture. Как я поняла он должен быть где-то быть описан, но в книге об этом не гоорится. Последний раз редактировалось РезедаМуратова; 23.01.2018 в 19:11. Причина: не точное название |
23.01.2018, 10:56 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
эту процедуру нужно написать самостоятельно.
кстати, если Вы описали Information, то почему не описали SetPicture ? Код:
который делает следующее: dd1.jpg p.s. используете метод Form1.Image1.Picture.LoadFromFile() p.p.s. в интернете нагуглил такой код процедуры SetPicture: Код:
Последний раз редактировалось Serge_Bliznykov; 23.01.2018 в 10:58. |
23.01.2018, 18:16 | #3 |
Пользователь
Регистрация: 05.12.2017
Сообщений: 69
|
Спасибо большое
|
23.01.2018, 19:10 | #4 |
Пользователь
Регистрация: 05.12.2017
Сообщений: 69
|
Задание: Обеспечьте перетягивание картинок лишь левой кнопкой мыши.
Вот код того что попыталась. Все работает, но на обе стороны мыши, а не только на левую. Подскажите пожалуйста почему так? procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin drag:=false; //Image1.Tag:=0; end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if drag then with TImage(Sender) do begin Image1.Top:=Image1.Top+Y-shiftY; Image1.Left:=Image1.Left+X-shiftX; end; end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button=mbLeft then begin shiftY:=Y; shiftX:=X; drag:=true; (Sender as TImage).BringToFront; end else drag:=false; end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Изучаем английский. И только в данной теме! | iukash | Свободное общение | 833 | 01.01.2024 05:33 |
Работа с геометрическими фигурами | Anaxaim | C++ Builder | 0 | 09.05.2014 21:02 |
Работа с фигурами | ramzes777 | Мультимедиа в Delphi | 2 | 28.10.2011 18:14 |
VBA: работа с фигурами | Kuraj | Microsoft Office Excel | 5 | 04.01.2010 18:33 |
Работа с графическими фигурами | Fanat1k | Помощь студентам | 1 | 03.05.2007 07:59 |