Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.08.31;
Скачать: CL | DM;

Вниз

докинг панели пересоздаются   Найти похожие ветки 

 
chuzhakin ©   (2007-12-10 12:11) [0]

Всем привет!
Есть ли возможность использовать панели (плавающие, которые вставляются в интерфейс программы) так, чтобы они не пересоздавались при смене их позиции: "вытаскивании" и "вставке"? Мы используем внутри них компоненты "дерево" и другие и вся информация теряется. Приходится "с нуля" создавать компоненты в случае смены parent-а.
Спасибо!


 
fics   (2007-12-10 18:13) [1]

Так сделайте чтобы при перетягивании ваше дерево дублировалось, а затем
при смене перента из дублированного копировалось, затем обнулилось и так далее, но это в общих чертах.


 
Kolan ©   (2007-12-11 11:09) [2]

> Так сделайте чтобы при перетягивании ваше дерево дублировалось,
> а затем
> при смене перента из дублированного копировалось, затем
> обнулилось и так далее, но это в общих чертах.

И чем это для автора лушьше? Еще хуже чем перезодавать, бо придеся писать код для копирования.


> чтобы они не пересоздавались при смене их позиции

Неужели они и в правду пересоздаются, что-то мне не верится&#133 Пойду проверю.


 
Kolan ©   (2007-12-11 11:27) [3]

Видимо автор брешет.

Бо проверил:

type
 TForm1 = class(TForm)
   Panel1: TPanel;
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

 TMyPanel = class(TPanel)
 public
   constructor Create(AOwner: TComponent); override;
   destructor Destroy; override;
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 with TMyPanel.Create(Application) do
 begin
   Parent := Form1;
   Width := 100;
   Height := 100;
   Top := 10;
   Left := 10;
   DragMode := dmAutomatic;
   DragKind := dkDock;
 end;  
end;

{ TMyPanel }

constructor TMyPanel.Create(AOwner: TComponent);
begin
 inherited;
 ShowMessage("Creation");
end;

destructor TMyPanel.Destroy;
begin
 ShowMessage("They killed Kenny");
 inherited;
end;


Может конечно не так проверил, но вроде так. Да и нелогично, с чегобы это  она пересоздавалась.



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

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

Наверх




Память: 0.47 MB
Время: 0.015 c
15-1215874647
@!!ex
2008-07-12 18:57
2008.08.31
редактирование свойств как в Object Inspector e


15-1215977854
AFHU
2008-07-13 23:37
2008.08.31
Маленький вопрос по php


2-1216916061
Ruzzz
2008-07-24 20:14
2008.08.31
создание Unicode приложения в Delphi 7


15-1215773178
ПЛОВ
2008-07-11 14:46
2008.08.31
Вопрос о координатах


8-1185237839
Дмитрий Белькевич
2007-07-24 04:43
2008.08.31
Сглаживание в терминальной сесии.