Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Вниз

Как таскать Image   Найти похожие ветки 

 
Ivolg   (2004-09-28 18:59) [0]

Привет всем!! Помогите PLIZZ!!! Как можно сделать так когда нажимаешь на Image мышкой, Image можнобыло таскать по всей облости GroupBox"a и что-быза пределы GroupBox"aне лезла!!!


 
LicProd   (2004-09-28 21:56) [1]

Хороший вопрос!
Вообще-то! Если ты умеешь тоскать image1 то проблем с тасканием на GroupBox проблем возникать не должно! просто положи этот компонент НА GroupBox при создании ОНОГО и попробуй потаскать ещё в delphi? до компиляции или запуска программы и ты увидишь, что он даже там таскается исключительно в рамках GroupBox... А если ты не знаешь как картинку двигать, то так и скажи!

var
 x0, y0: integer;
 t: boolean;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if button <> mbLeft then t:=false
else begin t:=true;
x0:=x;
y0:=y;
end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if t then begin
image1.Left:=image1.Left+x-x0;
image1.Top:=image1.Top+y-y0;
end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 t := false;
end;


Проще помоему ничего не бывает!

Ну, а если тебе необходимо, чтобы рисунок двигался в определённых рамках, то на событие OnMouseMove просто сравнивай координаты крайних точек своего изображения с крайними точками прямоугольной области или, в твоём случае - с крайними точками GroupBox и не давай им выйти за пределы!



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.042 c
1-1096420469
Leaner
2004-09-29 05:14
2004.10.17
ExpandEnvironmentStrings Получение полного пути файла.


1-1096820240
M-Alex
2004-10-03 20:17
2004.10.17
Command


3-1095358722
Volodya_
2004-09-16 22:18
2004.10.17
Позиция ScrollBar-а в DBGrid


14-1096539245
DSKalugin
2004-09-30 14:14
2004.10.17
Авторские права на ПО, патентование, контракт...


3-1095327636
kurilka
2004-09-16 13:40
2004.10.17
DBGRID





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский