Главная страница
    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.03 c
1-1096976842
СержК
2004-10-05 15:47
2004.10.17
Ошибка при установке компонент


1-1096886095
strelok-47
2004-10-04 14:34
2004.10.17
Как создать OLE-объект в сонсольном приложении?


3-1095658777
ceval
2004-09-20 09:39
2004.10.17
Подскажите как обьядинить два поля в DBgrid e ?


14-1095878044
Sheng
2004-09-22 22:34
2004.10.17
Любителям комьютерной 3d графики


4-1095100166
MIGUR
2004-09-13 22:29
2004.10.17
Изменения параметров в BOIS





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский