먼저 TRectLayer를 클래스로만 선언을 하시고, 나중에 객체 구성을 하면 됩니다.


TRectLayer = class;

TFrame2 = class(TFrame)
...
Imgvw: TImage32;
...
private
...
public
{ Public declarations }
SelectLayer : TRectLayer;
...
end;

TRectLayer = class(TPositionedLayer)
private
...
protected
procedure MouseUp(Button : TMouseButton; Shift : TShiftState; X, Y : Integer); override;
...
public
...
end;


위 형태처럼 해보시면 가능할 것입니다. ^^

아는게 없다보니 가르켜주셔도 잘 모르겠군요.

TRectLayer = class;

TFrame2 = class(TFrame)
...
Imgvw: TImage32;
...
private
...
public
{ Public declarations }
SelectLayer : TRectLayer;
procedure GetSelectedBitmap(srcBmp: TBitmap32); //
...
end;

TRectLayer = class(TPositionedLayer)
private
...
protected
procedure MouseUp(Button : TMouseButton; Shift : TShiftState; X, Y : Integer); override;
...
public
...
end;

implementation
...
procedure TRectLayer.MouseUp(Button : TMouseButton; Shift : TShiftState; X, Y : Integer);
begin
...
GetSelectedBitmap(imgvw.bitmap); // 여기서 컴파일오류가 납니다.
...
end;

결국은
인터페이스에
var srcBmp : TBitmap32;
를 정의하고
implementation
procedure GetSelectedBitmap(Bmp : TBitmap32);//
로 고친다음 srcBmp 에 imgvw.bitmap을 넘기는 방법으로 해결했습니다.
정욱님 항상 관심돌려주셔서 정말 감사합니다.