Компонент Опции

[sheka]

С помощью инета сделал свой компонент. Подскажите, как

unit component1;

interface

{uses
  SysUtils, Classes, ExtCtrls;}
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

var Timer: TTimer;

type
  tcomponent1 = class(TComponent)

  private
	{ Private declarations }
	FShowType:boolean;
  protected
	{ Protected declarations }
	procedure OnTimer(Sender: TObject);
  public
	{ Public declarations }
	constructor Create(AOwner:TComponent);override;
  published
	{ Published declarations }
	property ShowType: boolean read FshowType write FShowType;
  end;



procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [tcomponent1]);
end;

constructor tcomponent1.Create(aowner:Tcomponent);
begin
  Timer:=TTimer.Create(self);
  Timer.Enabled:=true;
  Timer.OnTimer:=OnTimer;
  Timer.Interval:=1000;
end;

procedure tcomponent1.OnTimer(Sender: TObject);
begin
FShowType:=not FShowType;				  <<----------------------------------------вот здесь
end;

end. 

изменять, например, свойство Visible формы, на которую этот компонент установлен.

Сообщение отредактировано: sheka - 17.11.2009 18:43

[sheka]

Создается компонент, картинка. при нажатии на нее изменяется цвет компонента. Но почему-то не видно дополнительной картинки...(которая находится в средине компонента). Подскажите пожалуйста.

 unit image1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
  
type
  timage1 = class(TImage)
  private
    { Private declarations }
  protected
    { Protected declarations }
    procedure MyOnClick(Sender: TObject);
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  published
    { Published declarations }
    image1: Timage; // даже сюда поместил, а не в protected, думал видно будет
  end;

procedure Register;

implementation

var b:boolean;

procedure Register;
begin
  RegisterComponents('Samples', [timage1]);
end;

constructor timage1.Create(AOwner: TComponent);
begin
  inherited;
  Self.OnClick := MyOnClick;
  image1 := Timage.Create(Self); // вот эта картинка дополнительная
  image1.OnClick := MyOnClick;
  image1.Left:=self.Left+10;
  image1.Top:=self.Top+10;
  image1.Height:=self.Height-20;
  image1.Width:=self.Width-20;
  image1.Stretch:=true;
  image1.Proportional:=true;
  image1.Transparent:=true;
  image1.Visible:=true;
  self.Visible:=true;
  image1.Picture.LoadFromFile('in.bmp');
  b:=true;
end;

procedure timage1.MyOnClick(Sender: TObject);
begin
  if b = true then
    begin
      self.Canvas.Brush.Color := clBlack;
      image1.Show;   //вот здесь ее по идее должно показывать...
    end
  else
    begin
      self.Canvas.Brush.Color := clred;
      image1.Show;
    end;
  self.Canvas.FillRect(Canvas.ClipRect);
  b:=not b;
end;

end.