Entries

初めてのコンポーネント。

とりあえず、ソースは、
↓ここから
--
unit MgEdt;

interface

uses
SysUtils, Classes, Controls, ExtCtrls,StdCtrls,Dialogs,Windows;

type
TMgEdt = class(TPanel)
private
{ Private 宣言 }
FileName:String;
btn:TButton;
edt:TEdit;
protected
{ Protected 宣言 }
public
{ Public 宣言 }
constructor Create(AOwner: TComponent); override;
destructor Destroy; // デストラクタ
procedure setText;
published
{ Published 宣言 }
property szFileName:String read FileName write FileName;
end;

procedure Register;

implementation

constructor TMgEdt.Create(AOwner: TComponent);
var
slst:TStringList;
begin
inherited create(AOwner);
Btn:=TButton.Create(Self);
Edt:=TEdit.Create(Self);
btn.Parent:=TWinControl(Self);
edt.Parent:=TWinControl(Self);

edt.Left:=0;
edt.Top:=0;
btn.Left:=edt.left+edt.width;
btn.Top:=edt.Top;
// btn.Name:=self.name+'1';
btn.Height:=25;
btn.Width:=50;
btn.Caption:='aaa';
btn.Visible:=True;
slst:=TStringList.Create;
if FileExists(szFileName)=True then
begin
slst.LoadFromFile(szFileName);
edt.Text:=slst.Strings[0];
end;
slst.Free;

end;


destructor TMgEdt.Destroy; // デストラクタ
begin

Btn.Free;

inherited Destroy;

end;

procedure TMgEdt.setText;
var
slst:TStringList;
begin
slst:=TStringList.Create;
if FileExists(szFileName)=True then
begin
slst.LoadFromFile(szFileName);
edt.Text:=slst.Strings[0];
end;
slst.Free;
end;

procedure Register;
begin
RegisterComponents('Magicar', [TMgEdt]);
end;

end.
--
↑まで。


パネルの上にEditとボタンを貼り付けています。

で、SetTextを呼び出すと、szFileNameの先頭行をEditにセットします。


機能はこれだけなんですが、
と、とりあえず、ここまでやっておけば、今後何かの役に立つかな?…と。

正直、普通に作るほうが楽かも…(^^;
です。


やろうと思ってたんだけど、書籍なくしたり、機会が無かったんで、
ずっとおざなりで忘れてました。



さて、次は…?
この記事にトラックバックする(FC2ブログユーザー)
https://fuma.mobi/tb.php/938-1f37b91b

トラックバック

コメント

コメントの投稿

コメントの投稿
管理者にだけ表示を許可する

Appendix

プロフィール

pervect

Author:pervect

最新コメント

月別アーカイブ

検索フォーム

ブロとも申請フォーム

この人とブロともになる

QRコード

QR