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

[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 22:43

[volvo]

Нет, по-моему мы друг друга не понимаем... Какая проблема перенести то же самое в обработчик события OnChange? Смотри:

type
  TMyComponent = class(TEdit)
    // ...
  protected
    { Protected declarations }
    procedure MyOnTimer(Sender: TObject);
    procedure MyOnChange(Sender: TObject); // <--- Добавляешь это ...

constructor TMyComponent.Create(AOwner: TComponent);
begin
  inherited;
  FTimer := TTimer.Create(Self);
  FTimer.OnTimer := MyOnTimer;
  FTimer.Enabled := False;

  Self.OnChange := MyOnChange; // <--- Добавляешь это, чтобы компонент знал, как реагировать
end;

// Ну, и сам метод:
procedure TMyComponent.MyOnChange(Sender: TObject);
begin
  if Owner is TCustomForm then
  begin
    TCustomForm(Owner).Caption := Caption;
  end;
end;

И опять же все работает: забросил я свой компонент на форму, запустил программу, но таймер не активизировал. И изменяю содержимое Эдита. Тут же обновляется заголовок формы. Что-то не так?

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

У TControl есть свойство Caption, и если ты внутри потомка TControl, то у тебя есть к нему доступ (TEdit - потомок TControl, так что все в порядке). Если то же самое попытаться сделать из основной программы - то будет ошибка при попытке обращения к защищенному члену класса TControl. Можешь использовать Text, если тебе удобнее...

Добавлено через 3 мин.
Бррр... Так ты хочешь, чтобы твой метод Change был доступен извне, или все-таки:

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

? Ты ж для себя реши, что тебе надо?

[sheka]

Бррр... Так ты хочешь, чтобы твой метод Change был доступен извне?

Нет, извне мне он не нужен. Я хочу просто чтобы всегда при изменении компонента исполнялись определенные действия, но и из проекта(т.е. как обычно) можно было добавить еще что-то в Onchange.
Оба варианта(мой и Ваш) работают именно так. А какая между ними разница?

Сообщение отредактировано: sheka - 19.11.2009 22:35