Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.01;
Скачать: CL | DM;

Вниз

Как к ячейкам TStringGrid привязать TCombobox   Найти похожие ветки 

 
Antoniz   (2002-06-18 10:07) [0]

Как к ячейкам TStringGrid привязать TCombobox.


 
Kaban   (2002-06-18 10:10) [1]

В FAQ видел пример, или на королевстве


 
MBo ©   (2002-06-18 10:14) [2]

6) Выбор значения в ячейке StringGrid из ComboBox

sg1: TStringGrid;
cb1: TComboBox;

procedure TForm1.sg1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
var
R: TRect;
begin
if ARow =1 then begin
R := SG1.CellRect(ACol, ARow);
cb1.left := R.Left+ SG1.Left+1;
cb1.top := R.Top + sg1.top+1;
cb1.Width := sg1.ColWidths[acol];
// cb1.Tag:=ACol+65536*ARow;
cb1.Visible := True;
cb1.SetFocus;
end;
CanSelect := True;
end;

procedure TForm1.cb1Change(Sender: TObject);
begin
{SG1.Cells[cb1.Tag mod 65536,cb1.tag div 65536]:=
cb1.Items[cb1.itemindex];}
SG1.Cells[SG1.Col, SG1.Row]:=
cb1.Items[cb1.itemindex];
cb1.visible:=false;
end;

procedure TForm1.cb1Exit(Sender: TObject);
begin
cb1.visible:=false;
end;

procedure TForm1.sg1TopLeftChanged(Sender: TObject);
var
R: TRect;
begin
// R := SG1.CellRect(cb1.Tag mod 65536,cb1.tag div 65536);
R := SG1.CellRect(SG1.Col, SG1.Row);
cb1.left := R.Left+ SG1.Left+1;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
14-1170
sergey32
2002-05-30 14:28
2002.07.01
Вместо того, чтобы болтать


1-1011
MAN-IN-RED
2002-06-20 14:06
2002.07.01
Как сохранить список картинок из ImageList’а в один файл?


1-943
ZG
2002-06-19 16:10
2002.07.01
Здарово!!! не подскажите как в Турбо Паскале использовать метод р


7-1232
ser111
2002-03-31 18:54
2002.07.01
Как узнать тип exe-шника?


8-1109
Сергей С
2002-02-25 12:15
2002.07.01
DirectShow