컴포넌트를 설치 하고
제거 하는 것이 잘 안되서 그럼니다.
책에 있는 소스대로 컴포 넌트를 만들어
인스톨 했는데 인스톨 까지 에러가 없었는데,
폼에 떨구니까,
Control ''has no parent window.
라는 에러 메시지가 나오고 폼에 떨어 지지
않거든요,
소스는 아래 있고요.
unit FontCombo;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TFontCombo = class(TComboBox)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
constructor create( AOwner : TComponent );override;
procedure CreateWnd ; override;
published
{ Published declarations }
property Style default csDropDownList;
end;
procedure Register;
implementation
constructor TFontCombo.create(Aowner: TComponent);
begin
inherited Create(AOWner);
style := csDropDownList;
items := Screen.Fonts;
end;
procedure TFontCombo.CreateWnd;
begin
inherited CreateWnd;
items := Screen.Fonts;
end;
procedure Register;
begin
RegisterComponents('Samples', [TFontCombo]);
end;
end.
사요하는 버전은 3.0 클라이언트 서버 버전입니다.
그리고 설치된 컴포넌트는 어떻게 제거 하죠.
도움 바랍니다.
|