Скачать: CL | DM;

Drag&Drop и DblClick   Найти похожие ветки 

← →
Cowboy ©   (2002-07-10 09:11) [0]

Доброго времени суток, уважаемые! Не подскажите, как можно сделать, чтобы TImage можно было и перетаскивать и при двойном щелчке выпадал MessageBox. У меня пока получается или так или так. Заранее СПА!

---

← →
TTCustomDelphiMaster ©   (2002-07-10 11:20) [1]

Сделай у Image DragMode=dmManual тогда операцию drag&drop будеш обрабатывать самостоятельно (посмотри в хелпе как это делать).

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then // Начинает drag
Image1.BeginDrag(False, 5);
end;

procedure TForm1.Image1DblClick(Sender: TObject);
begin
ShowMessage("ok"); // Ну это понятно
end;

---

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

Скачать: CL | DM;



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