button в ячейке стрингрида

← →
denis24 (2003-10-30 17:56) [0]

Можно ли сделать сабж?

← →
Спрашивающий_ (2003-10-31 02:02) [1]

Лови пример с SpeedButton,Button поместить в ячейку проблемы
нет, сложнее с обработкой событий.
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
If (ACol=1) and (ARow=1) Then
begin
SpeedButton1.SetBounds(Rect.Left,Rect.Top,Rect.Right-Rect.Left,Rect.Bottom-Rect.Top);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SpeedButton1.Parent:=StringGrid1;
end;

button в ячейке стрингрида Найти похожие ветки