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

Вниз

ComboBox в ячейке StringGrid   Найти похожие ветки 

 
Катерина ©   (2002-05-18 09:12) [0]

Нельзя ли выбирать значение ячейки в StringGrid`е из выпадающего списка (как в ComboBox), или это возмодно только для DBGrid`а?


 
MBo ©   (2002-05-18 09:22) [1]

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];
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);
cb1.left := R.Left+ SG1.Left+1;
end;



 
Катерина ©   (2002-05-18 09:27) [2]

Спасибо, попробую.



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

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

Наверх




Память: 0.47 MB
Время: 0.015 c
1-97316
Doctor Deejay
2002-05-19 18:24
2002.05.30
Ну помогите же мне кто-то!!!


1-97261
VicV
2002-05-17 23:00
2002.05.30
Кто нибудь знает, как сделать отчет в Еxcel?


1-97223
alxx
2002-05-20 15:51
2002.05.30
Выцепить Маленькую иконку из файла...


1-97329
Demon Ltd
2002-05-18 00:57
2002.05.30
Копирование файла по выбору


4-97456
SPeller
2002-03-29 10:13
2002.05.30
Систем инфо...