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

[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]

как мне сделать чтобы при изменении текста моего компонента происходило то же самое, без предварительной прописки в новоп проекте:

Ну, так в чем проблема? Проверяй, что компонент лежит на форме, а не на каком-нибудь другом компоненте, и изменяй заголовок владельца:

procedure TMyComponent.MyOnTimer(Sender: TObject);
begin
  Caption := TimeToStr(Now);
  if Owner is TCustomForm then
  begin
    TCustomForm(Owner).Caption := Caption; // Копируем содержимое Caption-а компонента в заголовок формы
  end;

  if Assigned(FOnTimer) then FOnTimer(Self);
end;

Только что проверил - работает... Только ты должен перерегистрировать компонент, и только потом его использовать в проекте.

Что собой представляет TNotifyEvent? указатель на какое-то событие? если да, то ним могут быть все(OnClick,OnCreate..итд)?

type TNotifyEvent = procedure(Sender : TObject) of object;

, то есть, любой метод класса, принимающий один параметр типа TObject, подходит под эту сигнатуру.

[sheka]

Ну, так в чем проблема?

Вы меня не правильно поняли: проблема у меня с тем, чтобы создать событие OnChange для моего компонента. Т.е. сделать все тоже самое, только не на MyOnTimer, а на СОБСТВЕННЫЙ OnChange НОВОГО компонента.

TCustomForm(Owner).Caption := Caption;

а у Edita вроде Text,а не Caption

Только ты должен перерегистрировать компонент, и только потом его использовать в проекте.

Да, с этим я уже намучался , что удалил какойто файл .drkt или как-то так и потом делфи переустанавливал