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

[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

[volvo]

На самом деле лучше бы так сделать:

type
  TComponent1 = class(TComponent)
  protected
    // ...
    procedure SetShowType(value: Boolean);
  published
    { Published declarations }
    property ShowType: boolean read FshowType write SetShowType;
  end;

Procedure TComponent1.SetShowType(value: Boolean);
begin
  FShowType := value;
  (Self.Owner as TForm).Visible := value;
end;

. Кстати, почему таймер - глобальная переменная?

[sheka]

Кстати, почему таймер - глобальная переменная?

это я с сайта списывал.

property ShowType: boolean read FshowType write SetShowType;

Насколько я понял, то что стоит после read - процедура считывания информации с поля; после write - записи в поле. Только в чем прикол этих процедур - я не понял.

А где у вас таймер на выполнение процедуры SetShowType? или потом в OnTimer вызывать эту процедуру?

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