Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

StringGrid + ComboBox [D5, Win95/98, WinME, NT4, Win2k, WinXP]

Елена © (2002-02-02 09:45:00)
Как объединить StringGrid и ComboBox?
Заранее благодарна.

Елена (2002-02-04 15:46:00) [1]
Спасибо, получила, буду разбираться.

reonid (2002-02-04 15:43:00) [2]
послал примерчик

Елена (2002-02-04 15:04:00) [3]
На elena28@inbox.ru. Спасибо.

BlankAlex (2002-02-04 14:47:00) [4]
Я сделал так:
На основную форму бросил компонент, который выгляди как Combobox (у меня TDBEditEh из библиотеки DBgidEh),
по нажатию кнопки вызываю окно, в которое запихнул DBGrid, т.к. мне надо вытаскивать значения из БД. У тебя окно может содержать ListBox

Function SelectValueFromList(HostControl: TControl):Boolean ;
Begin
fm:=Tfm.Create(Application) ;
With fm Do
Try
AdjustDropDownForm(fm,HostControl);

Visible := True;
ModalResult := mrCancel;
While (Visible) Do Application.ProcessMessages;
If ModalResult = mrOk Then Result:=True ;
Finally
Release ;
End;
End ;

{Расчет координат выпадения окна
AdjustDropDownForm( <форма, которая имитирует открывающийся список> ,< компонент >);}
procedure AdjustDropDownForm(AControl : TControl; HostControl: TControl);
var
WorkArea: TRect;
HostP, PDelpta: TPoint;
begin
SystemParametersInfo(SPI_GETWORKAREA,0,@WorkArea,0);
HostP := HostControl.ClientToScreen(Point(0,0));
PDelpta := AControl.ClientToScreen(Point(0,0));

AControl.Left := HostP.x -2;
AControl.Top := HostP.y + HostControl.Height -2;

if (AControl.Width > WorkArea.Right - WorkArea.Left) then
AControl.Width := WorkArea.Right - WorkArea.Left;

if (AControl.Left + AControl.Width > WorkArea.Right) then
AControl.Left := WorkArea.Right - AControl.Width;
if (AControl.Left < WorkArea.Left) then
AControl.Left := WorkArea.Left;

if (AControl.Top + AControl.Height > WorkArea.Bottom) then
begin
if (HostP.y - WorkArea.Top > WorkArea.Bottom - HostP.y - HostControl.Height) then
AControl.Top := HostP.y - AControl.Height - 2;
end;

if (AControl.Top < WorkArea.Top) then
begin
AControl.Height := AControl.Height - (WorkArea.Top - AControl.Top);
AControl.Top := WorkArea.Top;
end;

if (AControl.Top + AControl.Height > WorkArea.Bottom) then
begin
AControl.Height := WorkArea.Bottom - AControl.Top;
end;
end;

reonid (2002-02-04 14:32:00) [5]
нашёл, могу кинуть на мэйл исходник.
(он не такой ужиаленький)

MBo (2002-02-04 14:03:00) [6]
например, так
procedure TForm1.Button1Click(Sender: TObject);
begin
stringgrid1.visible:=true;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
edit1.text:=stringgrid1.cells[acol,arow];
stringgrid1.visible:=false;
end;

Елена (2002-02-04 13:46:00) [7]
Надо, очень надо!

MBo (2002-02-04 13:44:00) [8]
>не можете не знать
Весьма польщен :)

вариант с шириной комбо устроил?

Если все же необходимо, чтобы появлялся StringGrid (что не очевидно - как я понял, нет нужды выбирать одну из ячеек на строке), то проще всего вместо комбо кнопкой делать Stringgrid1.visible:=true;

reonid (2002-02-04 13:34:00) [9]
Я когда-то делал нечто подобное.
Правда, результат выглядел чуть иначе, чем комбо-бокс.
(кнопка была вне эдита).
Если очень надо, могу найти.

Елена (2002-02-04 13:22:00) [10]
MBo, Вы не можете не знать как это сделать!

Елена (2002-02-04 11:11:00) [11]
А как это???

Набережных С. (2002-02-03 16:23:00) [12]
Или вручную подвешивать к Combo еще один StringGrid.

MBo (2002-02-03 15:36:00) [13]
>из которого выбираем одну строчку.
строчку, не ячейку?
многоколоночный Combo?
так готовь Items в виде
String1 QQQQ wwwww
String2 WWWW eeeee

Елена (2002-02-03 13:53:00) [14]
Получается, что не ComboBox в StringGrid"е, а StringGrid в ComboBox"е.

Елена (2002-02-03 13:50:00) [15]
То есть внешне он был бы похож на ComboBox, а когда мы раскрываем его, то видим StringGrid из которого выбираем одну строчку.

Набережных С. (2002-02-03 13:19:00) [16]
А это как? Нельзя-ли "на пальцах" объяснить?

Елена (2002-02-03 12:34:00) [17]
Были виднЫ, конечно.

Елена (2002-02-03 12:30:00) [18]
Спасибо, но это немного не то.
Мне хотелось бы, чтобы в раскрывающемся списке были видна строки ячеек.
Заранее благодарна.

MBo (2002-02-02 10:37:00) [19]
на основе из какого-то Faq
procedure TForm1.FormCreate(Sender: TObject);
begin
Combo.Visible := False;
Combo.Items.add("Вася");
Combo.Items.add("Петя");
Combo.Items.add("Саша");
StringGrid1.DefaultRowHeight := Combo.Height;
StringGrid1.Col:=0;
end;
procedure TForm1.ComboChange(Sender: TObject);
begin
StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row]:=Combo.Items[Combo.ItemIndex];
Combo.Visible := False;
StringGrid1.SetFocus;
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
if ACol = 1 then begin
Combo.Width := StringGrid1.ColWidths[1] ;
Combo.Left := StringGrid1.Left + StringGrid1.CellRect(1,ARow).Left + 1;
Combo.Top := StringGrid1.Top + StringGrid1.CellRect(1,ARow).Top + 1;
Combo.Tag := ARow;
Combo.Visible := true;
Combo.SetFocus;
end;
CanSelect := True;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »