Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Компоненты";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Вниз

создание своего combobox   Найти похожие ветки 

 
snake2003   (2004-06-10 13:12) [0]

выпадающее окно становится активным при выборе мышкой - как такое предотвратить ? смотрел в исходниках вроде так же сделал.
привожу свой код - может чего недопонял или проглядел - ткните носом.

procedure TSnPopupWindow.CreateParams(var Params: TCreateParams);
begin
 inherited CreateParams(Params);
 with Params do
 begin
   Style   := WS_POPUP or WS_BORDER or WS_CLIPCHILDREN;
   ExStyle := WS_EX_TOOLWINDOW or WS_EX_TOPMOST;
   WindowClass.Style := CS_SAVEBITS;
 end;
end;

procedure TSnPopupWindow.ShowPopup(Origin: TPoint);
begin
 SetWindowPos(Handle, HWND_TOP, Origin.X, Origin.Y, 0, 0,SWP_NOSIZE or SWP_NOACTIVATE or SWP_SHOWWINDOW);
 FVisible := True;
end;

constructor TSnComboEdit.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 ControlStyle  := ControlStyle - [csSetCaption];
 FDropDownRows := 8;
 FPopup := TSnPopupWindow.Create(Self);
 with FPopup do
 begin
   Parent  := Self;
   Width   := Self.Width;
   Height  := FDropDownRows*19;
   Visible := False;
 end;
 FPopupVisible := False;
end;

procedure TSnComboEdit.CreateParams(var Params: TCreateParams);
begin
 inherited CreateParams(Params);
 with Params do
 begin
   if NewStyleControls and Ctl3D
     then ExStyle := ExStyle or WS_EX_CLIENTEDGE
     else Style   := Style or WS_BORDER or WS_CLIPCHILDREN;
 end;
end;


 
Игорь Шевченко ©   (2004-06-10 16:40) [1]


> выпадающее окно становится активным при выборе мышкой


А каким оно должно становиться, если в него мышкой ткнули ?


 
snake2003   (2004-06-11 11:00) [2]

прикольно конечно - Игорь Шевченко. но это не ответ, мне надо что бы активным оставался edit.


 
snake2003   (2004-06-11 11:44) [3]

охота сдела комбо как в IE может кто подскажет где пример глянуть


 
Игорь Шевченко ©   (2004-06-11 13:52) [4]

snake2003   (11.06.04 11:44)


> охота сдела комбо как в IE


TComboBoxEx


 
snake2003   (2004-06-11 14:23) [5]

а в TComboBoxEx нельзя изменять мышкой размер выпадающего окна.
к тому же мне интересен принцип работы таких компонентов. я потом планирую на выпадающем окне отображать несколько других компонентов.


 
malkolinge ©   (2004-06-14 12:44) [6]

http://www.delphikingdom.com/helloworld/treecombobox.html


 
snake2003   (2004-06-15 11:10) [7]

этот пример я уже видел - там та же проблема. в обсуждении рекомендуют разобраться с флагами - но у меня как раз это и не получается.


 
snake2003   (2004-06-15 11:16) [8]

и еще вопрос(для общего развития): почему на C++ когда создают выпадающее окно пишут WS_CHILD а на дельфях WS_POPUP, пробовал создавать как в си так окно просто не отображается. в чем тут загвоздка ?


 
snake2003   (2004-06-15 17:18) [9]

с активацией окна поборолся так
procedure TSnPopupWindow.WMMouseActivate(var Msg: TMessage);
begin
 Msg.Result := MA_NOACTIVATE;
end;
а по поводу WS_CHILD кто может объяснить ?


 
Игорь Шевченко ©   (2004-06-21 14:17) [10]


> а по поводу WS_CHILD кто может объяснить ?


Задай свой вопрос в отдельной ветке и в другой конференции, например, в WinAPI


 
dm ©   (2004-06-25 11:59) [11]

procedure DropDownListBox.ONEnter;
begin
 parent.setfocus; // parent =  EDIT, к которому привязан ListBox
end;



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

Форум: "Компоненты";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.036 c
4-1115288509
Gamid
2005-05-05 14:21
2005.06.29
Стандартное окно Windows выбора папки


1-1118298249
c.j.frost
2005-06-09 10:24
2005.06.29
Компанент TreeView


6-1112206406
Безымянный
2005-03-30 22:13
2005.06.29
Порты (протокол TCP)


14-1117576567
Tuzemec
2005-06-01 01:56
2005.06.29
Хочу редактор (хороший)


10-1094708761
serg128
2004-09-09 09:46
2005.06.29
Как построить график в Excel?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский