Текущий архив: 2007.04.15;
Скачать: CL | DM;

Вниз

drag drop формы   Найти похожие ветки 

← →
bagos   (2007-03-28 07:23) [0]

написанна прогорамма для вычислений,заказчик просит чтобы это окошко можно было "вставлять в главную форму",типо как brealpointlist в редактор кода.
Подскажите в какую сторону копать,есть ли на эту тему что почитать?
Спасибо

---

← →
Elen ©   (2007-03-28 08:06) [1]

попробуй так, может придут мысли в голову :

Создай форму на ней посади панель с Align=alLeft; Далее запустыв перетащи мышкой панельку куда-нибудь, она отсоединится. Далее чтоб поставить ее на место нужно подвинуть отсоединившуюся панель к левому краю формы ближе чем на 20 точек, и панелька усядется обратно на форму

Вот код:
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ExtCtrls;

type
 TForm1 = class(TForm)
   Panel1: TPanel;
   procedure FormCreate(Sender: TObject);
   procedure Panel1EndDock(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
Panel1.DockSite:=true;
Panel1.DragKind:=dkDock;
Panel1.DragMode:=dmAutomatic;
end;

procedure TForm1.Panel1EndDock(Sender, Target: TObject; X, Y: Integer);
var tp:TPoint;
begin
tp.X:=Panel1.Left;
tp.Y:=Panel1.Top;
tp:=Panel1.ClientToScreen(tp);
if abs(tp.X-Form1.Left)<20 then
Panel1.Parent:=Form1;
end;

end.


---

← →
bagos   (2007-03-28 08:29) [2]

спс,то что надо

---

Страницы: 1 вся ветка

Текущий архив: 2007.04.15;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.094 c