Drag&Drop и DblClick [D5, WinXP]
Cowboy © (2002-07-10 09:11:00)
Доброго времени суток, уважаемые! Не подскажите, как можно
сделать, чтобы TImage можно было и перетаскивать и при двойном
щелчке выпадал MessageBox. У меня пока получается или так или так.
Заранее СПА!
TTCustomDelphiMaster (2002-07-10 11:20:00) [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;
Наверх 
ЧАТ |
Орешник |
|
