Текущий архив: 2002.07.22;
Скачать: 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 вся ветка
Текущий архив: 2002.07.22;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.015 c
