Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

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;

---

Страницы: 1 вся ветка

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.022 c