Текущий архив: 2005.06.29;
Скачать: CL | DM;

Вниз

DragDrop   Найти похожие ветки 

← →
ORMADA ©   (2005-06-07 11:38) [0]

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

---

← →
Gero ©   (2005-06-07 14:19) [1]

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

---

← →
novice_man ©   (2005-06-07 14:28) [2]

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

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

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

---

← →
ORMADA ©   (2005-06-07 14:54) [3]

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 15:15) [4]

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

---

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

Текущий архив: 2005.06.29;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.027 c