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

Вниз

Перетаскивание рисунка по форме при помощи мыши   Найти похожие ветки 

← →
KPY   (2002-10-21 07:53) [0]

какие события обрабатывать?

---

← →
Qpwoe!   (2002-10-21 08:02) [1]

MouseMove, MouseDown и MouseUp
Смотри

var x:boolean;

procedure MouseDown;
begin
x:=true;
end;

procedure MouseUp
begin
x:=false;
end;

procedure MouseMove;
begin
with image1 do
begin
top:=x-height div 2;
left:=y -width div 2;
end;
end;


Заглавления процедур было в облом писать...

---

← →
KSergey   (2002-10-21 10:28) [2]

посмотрите на королевстве статью "Жизнь и смерть в режиме run-time"

---

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

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

Наверх

Память: 0.44 MB
Время: 0.009 c