как описать событие?

[maxeebon]

Создаю свой компонент на базе TPaintBox, подскажите как мне описать событие OnMouseDown. Событие должно работать также как в TPaintBox только дополнительно выполнять определенный код.

[Аватар]

Обработчик OnMouseDown вызывается из метода MouseDown. Следовательно можно так попробовать

...

type
  TMyPaintBox = class(TPaintBox)
  protected
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
  end;

...

implementation

...

procedure TMyPaintBox.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
// здесь мой код или после inherited
  inherited;
end;

...

[maxeebon]

Появилась еще 1на небольшая проблемка у меня есть такая структура

 
TCell = class
 private
   FValue: boolean;
   FRules: array [0..9] of string;
   FRulesCount: byte;
   function GetRules(index: integer): string;
   procedure SetRules(index: integer; value: string);
 public
  property Value: boolean read Fvalue write Fvalue;
  property RulesCount: byte read FRulesCount write Frulescount;
  property Rules[index: integer]: String read GetRules write SetRules;
 end;

TWebBox = class(TPaintBox)
 private
  ...
  FCells: array of array of TCell;
 public
   ...
   procedure Draw;
   property Cells[Row,Col: integer]: TCell read GetCells write SetCells;
 end;

Нужно чтобы при изменения поля value в TCell вызывался метод Draw. Как это реализовать?

[evg_m]

Нужно чтобы при изменения поля value в TCell вызывался метод Draw. Как это реализовать?

чей метод? Tcell или другого класса?

для СВОЕГО(Tcell) метода.

  property Value: boolean read Fvalue write Setvalue;
private
  procedure SetValue(val: boolean);
.....

procedure TCell.SetValue(val: boolean);
begin
  Fvalue:=val;
  Draw();
end;

для ЧУЖОГО метода добавить к первому

TDrawEvnt =procedure <спсиок формальных параметров> of object;  

TCell
private
  FonDraw: TDrawEvent;
public
  property OnDraw: TDrawEvent read FonDraw write FonDraw;

r:=Tcell.Create;
r.onDraw:=xxx.Draw;

procedure Tcell.Draw;
begin
  if assigned(FonDraw) then Fondraw(....);
end;

[maxeebon]

Сообщение от evg_m

чей метод? Tcell или другого класса?

Да это метод другово класса TWebBox, у него есть массив ячеек TCell
то есть если задать например вот так:

...
type
  WebBox1: TWebBox;
...

procedure TForm1.Button1Click(Sender: TObject);
begin
 Webbox1.Cells[0,0].Value := true;
end;

Нужно что бы вызывался метод Draw (Webbox1.Draw)

[veniside]

через событие, как выше написали, или передавать в конструктор ссылку на TWebBox, и затем:

procedure TCell.SetValue(val: boolean);
begin
  if (Fvalue <> val) then begin
    //
    Fvalue := val;
    MasterPaintBox.Draw();
  end;
end;

[maxeebon]

Сообщение от veniside

через событие, как выше написали, или передавать в конструктор ссылку на TWebBox, и затем:

procedure TCell.SetValue(val: boolean);
begin
  if (Fvalue <> val) then begin
    //
    Fvalue := val;
    MasterPaintBox.Draw();
  end;
end;

А как конструктору TCell понят полем какого обьекта он является?

[Пепел Феникса]

тяжелый случай...учите основы классов.
а именно Self(Я), причем он может быть опущен.

то есть

procedure TCell.SetValue(val: boolean);
begin
  Fvalue:=val;
  Draw();
end;

равносильно

procedure TCell.SetValue(val: boolean);
begin
  Self.Fvalue:=val;
  Draw();
end;

[maxeebon]

Я наверно некорректно выразился, про Self я знаю. Я имелл ввиду что TCell является полем класса TWebBox и я никак немогу понять как передать ссылку этого класса TWebBox конструктору TCell как советовали выше.

[veniside]

TWebBox = class; // forward reference

TCell = class
  MasterPaintBox: TWebBox;
  //
  constructor Create(Master: TWebBox);
end;

constructor TCell.Create(Master: TWebBox);
begin
  MasterPaintBox := Master;
  //
  inherited Create();
end;

Ну и при создании клетки:

procedure TWebBox.AddCell(row, col: Integer);
begin
  //
  // !resize FCells as needed here!
  //
  FCells[row, col] := TCell.Create(Self);
end;

типа того