StringGrid + ComboBox

← →
BlankAlex (2002-02-04 14:47) [16]

Я сделал так:
На основную форму бросил компонент, который выгляди как 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;

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