Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c