| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

DragDrop

ORMADA ©   (2005-06-07 11:38:00) 

Удалено модератором
Примечание: Модерирование не обсуждается

---

novice_man   (2005-06-07 15:15:00) [1]

Так об этом и говорилось.

---

ORMADA   (2005-06-07 14:54:00) [2]

2 novice_man
смотри использую код

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
IF  Shift  = [ssLeft] then   Image2.BeginDrag(False);
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
   caption := 'click';
end;

в итого всегда сначала происходит почему то Image2Click а потом у ж начинается драг

---

novice_man   (2005-06-07 14:28:00) [3]

Например для Memo:

procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Shift = [ ssLeft] then Memo1.BeginDrag(true);
end;

При нажатой левой [ssLeft] кнопке!

---

Gero   (2005-06-07 14:19:00) [4]

Читай правила.

---

Наверх