|  | 
 
 | 
| 
 | |||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны | 
|  | 
|  | Опции темы | Поиск в этой теме | Опции просмотра | 
| 
			 
			#1  
			
			
			
			
		 | |||
| 
 | |||
|  Обработчик события для компонента созданного "на лету" Создаю компоненты таким образом: Код: Grid[0] := TDrawGrid.Create(Form1); Код: procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var s : String;
begin
  case TDrawGrid(Sender).tag of
    1:  s := IntToStr(agres);
    2:  s := IntToStr(alcohol);
    3:  s := IntToStr(boss);
  end;
  TDrawGrid(Sender).Canvas.TextOut(35, 1, s);
end;Код: Grid[0] | 
| 
			 
			#2  
			
			
			
			
		 | ||||
| 
 | ||||
|   Ну после конструктора можно. | 
| 
			 
			#3  
			
			
			
			
		 | |||
| 
 | |||
|   После конструктора это здесь: Код: Grid[0] := TDrawGrid.Create(Form1); Код: Grid[0].DrawGrid1DrawCell(Sender; ACol, ARow; Rect; State); Код: DrawGrid1DrawCell Код: type
  TForm1 = class(TForm)
    Timer1: TTimer;
procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private | 
| 
			 
			#4  
			
			
			
			
		 | |||
| 
 | |||
|   Код: Grid[0].OnDrawCell:=DrawGrid1DrawCell; | 
| Этот пользователь сказал Спасибо icWasya за это полезное сообщение: | ||
|  
lostbananan (05.03.2013)
 | ||