Правильная ссылка на эту страницу
http://az-design.ru/Support/SoftWare/Delphi/D3/SB38OnEndDrag.shtml

Глава 38. TControl.OnEndDrag

Событие OnEndDrag

Затрагиваемые объекты Все элементы управления
Назначение Событие OnEndDrag происходит при завершении операции перетаскивания.
Объявление property OnEndDrag: TEndDragEvent;
Пример синтаксиса
type TForml  =  class(TForm)
      Panell:   TPanel;
      Image1:   TImage;
      procedure MyEndDrag(Sender,Target: TObject; X,Y: Integer); 
  private 
    { Private declarations } 
  public 
    { Public declarations  } 
end;
 
 
var
   Form1: TForm1;
 
implementation 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject); 
begin
   Image1.OnEndDrag := Forml.MyEndDrag;
end;
procedure TForm1.MyEndDrag(Sender,Target: TObject; X,Y: Integer); 
begin 
   if Target is TPanel 
     then StatusBar1.Panels[1].Text := 'Drag ended on panel.' 
     else StatusBar1.Panels[1].Text := 'Drag did not end on panel.'; 
end;
Описание Операция перетаскивания может завершиться, когда опущенный объект будет принят получающим его элементом управления или при отмене операции пользователем. Параметр Sender представляет собой перетаскиваемый объект. Параметр Target — это элемент управления, который находится под указателем и перетаскиваемым объектом во время завершения операции перетаскивания. X и Y идентифицируют текущее расположение перетаскиваемого объекта с использованием системы координат элемента управления Target.

Важно
      
В отличие от OnDragDrop и OnDragOver, в OnEndDrag параметр Sender представляет собой перетаскиваемый объект, а не адресат операции. Это может привести к большой путанице, поскольку в этих взаимосвязанных обработчиках событий применяются несовместимые имена параметров.

Хотя в вышеприведенном примере кода обработчику событий для события кнопки OnEndDrag присвоена процедура во время выполнения, это, как правило, выполняется из Object Inspector во время разработки.
[Свойство Align] [Метод BeginDrag] [Свойство BoundsRect] [Метод BringToFront] [Свойство Caption] [Свойство ClientHeight] [Свойство ClientOrigin] [Свойство ClientRect] [Метод ClientToScreen] [Свойство ClientWidth] [Свойство Color] [Свойство ControlState] [Свойство ControlStyle] [Свойство Cursor] [Свойство DragCursor] [Метод Dragging] [Свойство DragMode] [Свойство Enabled] [Метод EndDrag] [Свойство Font] [Метод GetTextBuf] [Метод GetTextLen] [Свойство Height] [Метод Hide] [Свойство Hint] [Метод Invalidate] [Свойство Left] [Событие OnClick] [Событие OnDblClick] [Событие OnDragDrop] [Событие OnDragOver] [Событие OnEndDrag] [Событие OnMouseDown] [Событие OnMouseMove] [Событие OnMouseUp] [Событие OnStartDrag] [Свойство Parent] [Свойство ParentColor] [Свойство ParentFont] [Свойство ParentShowHint] [Свойство PopupMenu] [Метод Refresh] [Метод Repaint] [Метод ScreenToClient] [Метод SendToBack] [Метод SetBounds] [Метод SetTextBuf] [Метод Show] [Свойство ShowHint] [Свойство Text] [Свойство Top] [Метод Update] [Свойство Visible] [Свойство Width]

<<< Пред. Оглавление
Начало раздела
След. >>>




Дата последнего изменения:
Thursday, 21-Aug-2014 09:10:55 MSK


Постоянный адрес статьи:
http://az-design.ru/Support/SoftWare/Delphi/D3/SB38OnEndDrag.shtml