| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

drag-and-drop

Moo-Moo- ©   (2007-02-18 16:04:00) 

Господа, а кто сталкивался с drag-and-drop?
надо перемещать компоненты по TPanel
я делаю это стандартными средствами (Panel1DragOver и Panel2MouseDown), они рывками перемещаются(

Вот так делаю я:
procedure TForm1.Panel2MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
 begin
   TPanel(Sender).BeginDrag(True);
 end;
end;

procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
 State: TDragState; var Accept: Boolean);
begin
if Source is TPanel then
 begin
   Accept := True;
   TPanel(Source).Top:=y;
   TPanel(Source).left:=x;
 end
 else
   Accept := False;
end;

---

Leonid Troyanovsky   (2007-02-18 16:35:00) [1]

> Moo-Moo-   (18.02.07 16:04)  

> надо перемещать компоненты по TPanel


http://groups.google.com/group/borland.public.delphi.language.delphi.win32/msg/3fde0567b807cac8

--
Regards, LVT.

---

Наверх