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

Вниз

Ошибка при вставке собственного компонента из буфера обмена   Найти похожие ветки 

 
_Igorek   (2003-05-14 18:05) [0]

Допустим есть такой контрол:

type
T_Nested = class(TComponent)
protected
procedure ReadState(AReader: TReader); override;
end;

T_MyControl = class(TWinControl)
private
FNested: T_Nested;
protected
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;

{ T_MyControl }

constructor T_MyControl.Create(AOwner: TComponent);
begin
inherited;
if not (csLoading in ComponentState) then
FNested := T_Nested.Create(Self);
end;

destructor T_MyControl.Destroy;
begin
FreeAndNil(FNested);
inherited;
end;

procedure T_MyControl.GetChildren(Proc: TGetChildProc; Root: TComponent);
begin
inherited;
Proc(FNested);
end;

{ T_Nested }

procedure T_Nested.ReadState(AReader: TReader);
begin
inherited;
if AReader.Parent is T_MyControl then
begin
Self.Owner.RemoveComponent(Self);
T_MyControl(AReader.Parent).InsertComponent(Self);
T_MyControl(AReader.Parent).FNested := Self;
end;
end;


В потоке выглядит безобидно:
object _MyControl1: T_MyControl
Left = 88
Top = 40
Width = 100
Height = 41
object T_Nested
end
end

Ставим его на форму, копируем в буфер обмена, потом вставляем из буфера – получаем (трассировано Дельфи из под Дельфи)
Access violation at address 00919EBC in module "DESIGNIDE60.BPL". Read of address FFFFFFFF.

Ошибка связана с вложенным компонентом.
Вопросы:
1) что собственно неправильно?
2) как оттрассировать DESIGNIDE60.BPL, или хотя бы узнать какой код возбудил исключение (если эта часть представлена исходниками)?


 
_Igorek   (2003-05-14 18:21) [1]

Ошибка странная, бо форма с этим контролом нормально пишется и читается из потока.
Может кто-то знает, где есть исходники операции Paste?



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

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

Наверх




Память: 0.47 MB
Время: 0.012 c
6-83625
Жорик
2003-03-24 11:19
2003.05.26
Indy, D7 & HTTP....


1-83494
MegaVolt
2003-05-14 11:40
2003.05.26
Как правильно добавлять данные в StringGrid?


4-83805
mikeevteev
2003-02-17 21:07
2003.05.26
Как создать большой хинт для tray icon?


8-83610
Vadim840
2003-02-12 12:59
2003.05.26
Фото формы


4-83795
Num Lock
2003-03-26 15:21
2003.05.26
Как без окна обработать сообщения от всплывающего меню?