아래와같이 aaa라는 스트링속성이 나왔으면 하는데 object inspector에는
aaa가 나오지 않아요
알려주시면 고맙겠습니다.
컴포넌트를 처음 만들어 봐서요,,,,
-------아 래---------
unit TwMemo;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TTwMemo = class(TMemo)
private
faaa: TStrings;
{ Private declarations }
protected
{ Protected declarations }
procedure Click1(Sender : TObject);
public
{ Public declarations }
constructor Create(AOwner:TComponent);override;
destructor Destroy;override;
published
property aaa: TStrings read Faaa write Faaa;
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('P_NoTask', [TTwMemo]);
end;
constructor TTwMemo.Create( AOwner : TComponent );
begin
inherited Create(AOwner);
// 생성시에 할일...
Font.Name := 'fixedsys';
Font.Size := 9;
OnClick := Click1;
end;
destructor TTwMemo.Destroy;
begin
// 해제시에 할일...
inherited Destroy;
end;
procedure TTwMemo.Click1(Sender : TObject);
var aaa:TMemo;
aa,bb:string;
begin
aaa.Lines.LoadFromFile('c:\autoexec.bat'); {<= 여기에 aaa로부터 가져오라고 하려고 했음}
aa:=aaa.text;
aaa.Lines.LoadFromFile('c:\config.sys');
bb:=aa+aaa.text;
ShowMessage(bb);
end;
end.
두파일을 하나의 파일로 합치려는 의도인데..
두파일중 하나의 파일을 aaa라는 스트링 속성에서 받아오는 프로그램을 만들려고
하거든요. 이콤포넌트는 막 연습하는 거라서 일단 aaa가 오브젝트인스팩터에
표시만 된다면 좋겠어요...
또 이상한것이 실행을 시키면 현재 메모에 두개의 파일이 합쳐져서 보이거든요?
원래 메모내용에는 아무것도 안써지고 메시지다이얼로그에만 파일내용이 보여져야하는데 둘다 보여요....
컴포넌트에 속성을 집어넣는 방법이 뭐가 틀렸을까요?
|