Главная страница
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.016 c
15-1215708691
deadteachers
2008-07-10 20:51
2008.08.31
Пролили кофе с сахаром на клавиатуру ноутбука


3-1204266576
Barsky
2008-02-29 09:29
2008.08.31
Правильный запрос на FireBird SQL


4-1194929446
balepa
2007-11-13 07:50
2008.08.31
CE_FRAME


15-1215188901
R1ka
2008-07-04 20:28
2008.08.31
Посоветуйте, пожалуйста книгу


15-1215409345
Rouse_
2008-07-07 09:42
2008.08.31
Приветствуем новых Мастеров