Получить Handle списка TComboBoxDelphi , Компоненты и Классы , СпискиПолучить Handle списка TComboBox
Оформил: DeeCo procedure TForm1.ComboBox1DropDown(Sender: TObject); begin PostMessage(Handle, COMBO_MSG, 0, 0); end; function EnumProc(wnd: HWND; Alabel: TLabel): BOOL; stdcall; var buffer: array[0..50] of Char; begin Result := True; if IsWindowVisible(wnd) then begin GetClassName(wnd, buffer, SizeOf(buffer)); if StrIComp(buffer, 'ComboLBox') = 0 then begin Alabel.Caption := Format('handle found: %x', [wnd]); Result := False; end; end; end; procedure TForm1.ComboBoxMessage(var Msg: TMessage); begin EnumThreadWindows(GetCurrentThreadID, @EnumProc, Integer(label1)); end; Статья Получить Handle списка TComboBox раздела Компоненты и Классы Списки может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |