VPF::Работа с событиями, TNotifyEvent - Форум программистов

IgorMl

Дата 11.6.2014, 11:02 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 11.4.2014

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

Как по событию OnClick кнопки Button2 выполнить принадлежащий ему метод Button2Click
+ чтобы сработали события обьектов MyObjA, MyObjB и по этим событиям
произошло изменение полей обьектов MyObjA и MyObjB,
допустим FSpin = false, FValue = 0.

Это возможно сделать при инициализации обьекта TForm1?

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMyObjA = class
  private
    FOnMyObjAEvent: TNotifyEvent;
    FSpin : boolean;

  protected
    procedure DoOnMyObjAEvent;
  public
    property OnMyObjAEvent: TNotifyEvent read FOnMyObjAEvent write FOnMyObjAEvent;
    property Spin: boolean read FSpin write FSpin;
  end;

  TMyObjB = class
  private
    FOnMyObjBEvent: TNotifyEvent;
    FValue: integer;

    procedure SetValue(const Value:integer);
  protected
    procedure DoOnMyObjBEvent;
  public
    property OnMyObjBEvent: TNotifyEvent read FOnMyObjBEvent write FOnMyObjBEvent;
    property Value: integer read FValue write SetValue;
  end;

  TForm1 = class(TForm)   
    Button2: TButton;    
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    FMyObjA: TMyObjA;
    FMyObjB: TMyObjB;
  public
    { Public declarations }
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    FMyObjA := TMyObjA.Create;

    FMyObjB := TMyObjB.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   FreeAndNil(FMyObjA);
   FreeAndNil(FMyObjB);
end;

procedure TMyObjA.DoOnMyObjAEvent;
begin
  if Assigned(FOnMyObjAEvent)
    then FOnMyObjAEvent(Self);
end;
 
procedure TMyObjB.DoOnMyObjBEvent;
begin
  if Assigned(FOnMyObjBEvent)
    then FOnMyObjBEvent(Self);
end;

procedure TMyObjB.setValue(const Value: integer);
begin
  FValue := Value;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // Работа с событиями
  ShowMessage('Тест');
end;

end.

Poseidon

Дата 11.6.2014, 11:50 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Хочешь честно? Вот лично я вообще не понял что требуется. Хочешь что бы помогли, так составь вопрос нармально.

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

IgorMl

Дата 11.6.2014, 12:06 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 11.4.2014

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

Нажал на кнопку Button2 выполнился метод Button2Click.
Хочу чтобы помимо выполнения метода Button2Click генерировались события объектов MyObjA и MyObjB с выполнением присвоенных им методов.

Другими словами.
Как запустить события объектов MyObjA и MyObjB с выполнением присвоенных им методов по нажатию на кнопку Button2?

Poseidon

Дата 11.6.2014, 16:37 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Так а почему бы в Button2Click не вызывать нужные события для MyObjA и MyObjB?

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »