Раскрытие ComboBox

← →
Элина (2002-10-08 16:00) [0]

Народ как программно раскрыть ComboBox или DateTimePicker?

← →
Демонов Е.В. © (2002-10-08 16:01) [1]

DOWN:=true

← →
pusrg © (2002-10-08 16:05) [2]

Для TComboBox:
DroppedDown:=true;

Читаем хелп:
Indicates whether the drop-down list is currently displayed.

property DroppedDown: Boolean;

Description

Read DroppedDown to determine whether the drop-down list is visible. Set DropDown to drop the list down or close it up. DroppedDown is True when the drop-down list is open, and False when it is closed.

Note: DroppedDown is meaningful only if the value of Style is not csSimple.

Но для DateTimePicker это св-во только для чтения.

← →
Элина (2002-10-08 16:07) [3]

там такого нет

← →
pusrg © (2002-10-08 16:19) [4]

Пардон, "там" это где?
И "такого" это чего?

Св-во DroppedDown в классе TComboBox по крайней мере в Делфи5 есть точно :)

← →
Элина (2002-10-08 16:32) [5]

а что с Пикером делать??????????

procedure TForm1.Button1Click(Sender: TObject);
var
p,p0:tpoint;
begin
GetCursorPos(p0);
with datetimepicker1 do begin
p.x:=left+width-8;
p.y:=top+8;
end;
Windows.ClientToScreen(handle,p);
SetCursorPos(p.x,p.y);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
SetCursorPos(p0.x,p0.y);
end;

Можно также
DateTimePicker1.SetFocus;
keybd_event( VK_F4, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);

Правда в этом случае будем наблюдать потерю фокуса для ActiveControl формы :(

Раскрытие ComboBox Найти похожие ветки