Проблема с UpDownControl

← →
Image (2004-04-21 11:51) [0]

Не получается связать KOLEditBox и UpDownControl, создаваемый функцией
CreateUpDownControl. При этом, если в том же KOL проекте создать "Edit"
функцией CreateWindowEx, а затем связанный с ним UpDownControl, то всё работает отлично. Не подскажите, в чём проблема?

← →
Solik © (2004-04-21 13:40) [1]

Проверь, может у тебя сначала создается updown а потом edit.

← →
SPeller © (2004-04-21 14:02) [2]

А сообщение UDM_SETBUDDY не судьба использовать?

← →
Image (2004-04-21 15:08) [3]

Попробовал. Не пашет. В тексте программы у меня это выглядит так:

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
var UDC:HWND;
begin
UDC:=CreateUpDownControl(WS_BORDER or WS_VISIBLE or WS_CHILD or UDS_SETBUDDYINT or UDS_ALIGNRIGHT,
0,12,50,50,Form.Handle,0,hInstance,EditBox1.Handle,23,0,0);
end;

И зачем в данном случае нужно сообщение UDM_SETBUDDY? CreateUpDownControl и так принимает в качестве параметра Handle окна ассоциированного с UpDownControl, здесь - EditBox1.Handle.

Используй MHUpDown там таких багов нет.

Проблема с UpDownControl Найти похожие ветки