Форум: "Начинающим";
Текущий архив: 2007.04.15;
Скачать: [xml.tar.bz2];
Вниз
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.042 c
