Текущий архив: 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.034 c
