Иллюстрированный самоучитель по Kylix


Листинг 8 2 Обработка события OnDragOver



Листинг 8.2.Обработка события OnDragOver

procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean); begin

Accept := Source is TListBox; end;

В данном обработчике мы указываем, что на компонент ListBox2 можно перетаскивать компоненты типа TListBox. Затем в обработчике события OnDragDrop запишем следующий код (листинг 8.3).



Начало Назад Вперед


Книжный магазин