VPF::Событие при передаче параметра

Vetos

Дата 26.8.2008, 18:52 (ссылка)

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

Загрузка ...

Опытный

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

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

Допустим вот такую конструкцию:

Код


type
  PCamera=^TCamera;
  TCamera=class
     x,y:integer;
  end;

  TViewer=class
    a,b:integer;
    Camera:PCamera;
    procedure initialize;
  end;

var 
  view:TViewer;
  cam:TCamera; 
...

Как можно узнать когда происходит

Код


view.Camera:=@cam;

чтоб вызывалась view.initialize;

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

Строить нужно так, чтоб никто не сломал!
А ломать, чтоб никто не знал 8) :ne_huliganit

ama_kid

Дата 26.8.2008, 19:18 (ссылка)

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

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

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

добавь свойство-событие, сделай TViewer.Camera свойством и в обработчике write выполняй вызов события... Примерно так:

Код

unit Unit1;

interface

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

type
  PCamera=^TCamera;
  TCamera=class
     x,y:integer;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure OnAssignCameraToView(cam:PCamera);
  public
    { Public declarations }
  end;

type

  TCameraAssignNotify = procedure (cam:PCamera) of Object;

  TViewer=class
    a,b:integer;
    FCamera:PCamera;
    FOnAssignCamera: TCameraAssignNotify;
    procedure initialize;
  private
    procedure SetCamera(const Value: PCamera);
    procedure SetAssignCamera(const Value: TCameraAssignNotify);
  public
    property Camera : PCamera read FCamera write SetCamera;
    property OnAssignCamera : TCameraAssignNotify read FOnAssignCamera write SetAssignCamera;
  end;

var
  view:TViewer;
  cam:TCamera;

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 cam:=TCamera.Create;
 View:=TViewer.Create;
 View.OnAssignCamera:=OnAssignCameraToView;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 View.Free;
 cam.Free;
end;

{ TViewer }

procedure TViewer.initialize;
begin
 ShowMessage('Initialize');
end;

procedure TViewer.SetAssignCamera(const Value: TCameraAssignNotify);
begin
  FOnAssignCamera := Value;
end;

procedure TViewer.SetCamera(const Value: PCamera);
begin
  if FCamera<>Value then
   begin
    FCamera := Value;
    // Вариант 1
    if Assigned(FOnAssignCamera) then FOnAssignCamera(Value);
    // Вариант 2 - Можно вызвать напрямую
    // initialize;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 View.Camera:=@cam;
end;

procedure TForm1.OnAssignCameraToView(cam: PCamera);
begin
 View.initialize;
end;

end.

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

самурай без меча подобен самураю с мечом, но только без меча

Vetos

Дата 26.8.2008, 20:39 (ссылка)

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

Загрузка ...

Опытный

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

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

Спасибо за ответ.
Пожалуйсто можно только немного обьяснить, что выполняют

Код


    FOnAssignCamera: TCameraAssignNotify;
    procedure SetAssignCamera(const Value: TCameraAssignNotify);
    property OnAssignCamera : TCameraAssignNotify read FOnAssignCamera write SetAssignCamera;

а то чот немогу понять:(

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

Строить нужно так, чтоб никто не сломал!
А ломать, чтоб никто не знал 8) :ne_huliganit

THandle

Дата 26.8.2008, 20:54 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Цитата(Vetos @ 26.8.2008, 21:39

)

а то чот немогу понять:(

Так это же обычное свойство...

При чтении, значение будет браться из переменной FOnAssignCamera, при записи будет вызываться процедура SetAssignCamera.

Почитай про свойства. В любой нормальной книжке по идее должно быть...

Vetos

Дата 26.8.2008, 22:20 (ссылка)

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

Загрузка ...

Опытный

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

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

Я понял, что это обычное свойство, просто зачем оно там, непонял.
Если это все опустить все равно работает, на одном SetCamera;
Просто хотел узнать в каких случаях применяется первый вариант.

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

Строить нужно так, чтоб никто не сломал!
А ломать, чтоб никто не знал 8) :ne_huliganit

ama_kid

Дата 27.8.2008, 06:17 (ссылка)

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

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

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

Цитата(Vetos @ 26.8.2008, 23:20

)

Если это все опустить все равно работает, на одном SetCamera;

Просто вызов Initialize напрямую в SetCamera я считаю не совсем удачной идеей (хотя и вполне разрешенной). Кроме того, в обработчик события можно засунуть любой другой дополнительный код. Короче, мне просто так привычней, если не нужно - можешь не использовать smile

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

самурай без меча подобен самураю с мечом, но только без меча

Vetos

Дата 27.8.2008, 18:57 (ссылка)

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

Загрузка ...

Опытный

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

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

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

Строить нужно так, чтоб никто не сломал!
А ломать, чтоб никто не знал 8) :ne_huliganit

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