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;

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