VPF::Событие компанента - Форум программистов

tigger

Дата 14.4.2007, 08:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 456
Регистрация: 30.4.2005

Репутация: нет
Всего: 4

Создаю компанент но событие не работает

Код


unit FocusEdit;

interface

uses
  Messages, SysUtils, Classes, Controls, StdCtrls;

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

  TFocusEdit = class(TEdit)
  private
    FOldText: string;
    FClearText: boolean;
    FOnMySetFocus: TFocuseEvent;
    procedure SetOldText(const Value: string);
    procedure SetClearText(const Value: boolean);
   // procedure DoFocused;
  private
    { Private declarations }
    procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
    property  OldText:string read FOldText write SetOldText;
  protected
    { Protected declarations }
    procedure MySetFocus(Sender:TObject); dynamic;

  public
    { Public declarations }
    property ClearText:boolean read FClearText write SetClearText;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

  published
    { Published declarations }
    property OnMySetFocus: TFocuseEvent read FOnMySetFocus write FOnMySetFocus;
  end;

procedure Register;

implementation

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

{ TFocusEdit }

constructor TFocusEdit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

end;

destructor TFocusEdit.Destroy;
begin

  inherited;
end;

procedure TFocusEdit.MySetFocus(Sender: TObject);
begin
  if Assigned(FOnMySetFocus) then FOnMySetFocus(Self);
end;

procedure TFocusEdit.SetClearText(const Value: boolean);
begin
  if FClearText <> Value then FClearText := Value;
end;

procedure TFocusEdit.SetOldText(const Value: string);
begin
  if FOldText <> Value then FOldText := Value;
end;

procedure TFocusEdit.WMSetFocus(var Message: TWMSetFocus);
begin
  inherited;
  MySetFocus(self);
end;

end.

так вот событие не работает потому чтоAssigned(FOnMySetFocus) = false
что я забыл? не могу сообразить.

--------------------