Stringgrid, Procedure, cells[m,n]:=DynMas[a,b]. Очередной вопрос начинающего (#003)

[Albert2008]

Есть процедура (которую мы пишем событии OnDrawCell)
Она нам закрасит ячейку 1/1 в красный цвет.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (ACol = 1) and (ARow = 1) then
begin
StringGrid1.Canvas.Brush.Color := clRed;
StringGrid1.Canvas.FillRect (Rect);

StringGrid1.Canvas.TextRect (Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol,ARow]);
end; {if}
end;

Вопросы:
1. Как написать процедуру, которая будет делать скажем тоже самое, только не при запуске программы, а только тогда , когда мы её будем вызывать сами, скажем нажатием кнопки.
Всякие вложения вида:
procedure TForm1.Button1Click(Sender: TObject);
begin

StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
end;
Отчего-то не верны, хотя по логике вещей Мы нажатием кнопки Button1 пытаемся вызывать заранее заданную процедуру StringGrid1DrawCell
end;

[Stilet]

Ну если я правильно понял то например так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 StringGrid1.OnDrawCell:=nil;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if (ACol = 1) and (ARow = 1) then
begin
 StringGrid1.Canvas.Brush.Color := clRed;
 StringGrid1.Canvas.FillRect (Rect);
 StringGrid1.Canvas.TextRect (Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol,ARow]);
end; {if}
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.OnDrawCell:=StringGrid1DrawCell;
StringGrid1.Invalidate;
end;

end.

Отчего-то не верны, хотя по логике вещей....

Как раз по правилам делфи логика такая тут совершенно не годится.
Ибо OnDrawCell вызывается когда нужно для каждой видимой ячейки, а ты даже по кнопке вызвав этот обработчик обработаешь всего одну ячейку.

[Albert2008]

Полученный код скопировал в новый проект.
Скомпилировал. Ошибок вроде никаких нету. Но и результатов тоже.
Посмотрите пожалуйста.

Я не понимаю почему неверна логика, что сначала мы задаём одну функцию (или процедуру) а потом могли бы её вызывать в другой процедуре...

[Stilet]

Но и результатов тоже.Посмотрите пожалуйста.

Я его перед тем как выкладывать тестил - результаты: закраска ячейки (1,1) красным по нажатию кнопки. Иши у себя ошибку.

Я не понимаю почему неверна логика, что сначала мы задаём одну функцию (или процедуру) а потом могли бы её вызывать в другой процедуре...

Неверно то как ты это вызываешь. Вот это твое "Всякие вложения вида:"

[Roof]

2 Albert2008 - все работает ))) абсолютно точно ))
Создавай 3 события в делфи, как тебе написали - и все работает