VPF::hint для выподающих строк Combobox - Форум программистов

green2005

Дата 24.8.2006, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 16.3.2006

Репутация: нет
Всего: нет

Привет всем!

У меня такой вопрос:
Можно ли как-нибудь сделать
hint для выподающих строк Combobox , но
именно для TCombobox, а не создавать его потомков и в них писать свои методы.

Есть в инете такое некое решение:

Код


procedure TForm1.appIdle(sender: TObject; var done: Boolean);
var
  pt,pt0: TPoint;
  wnd: HWND;
  buf: array[0..128] of Char;
  i: Integer;
begin
  GetCursorPos(pt);
  pt0:=pt;
  wnd := WindowFromPoint( pt );
  buf[0] := #0;
  if wnd <> 0 then
  begin
    GetClassName( wnd, buf, sizeof(buf));
    if StrIComp(buf, 'ComboLBox') = 0 then
    begin
      Windows.ScreenToClient( wnd, pt );
      i := SendMessage( wnd, LB_ITEMFROMPOINT, 0, lparam( PointToSmallpoint(pt)));
      if i >= 0 then
      begin
        SendMessage( wnd, LB_GETTEXT, i, integer(@buf));
        statusbar1.simpletext := buf+Sender.ClassName;

        Exit;
      end;
    end;
  end;
  statusbar1.simpletext := '';
end;

Но хотелось бы чтобы hint выводился не во всех combobox-ах формы
и именно хинт а не в statusbar
Хотя на счёт последего кажется тоже можно решить:
THintWindow.Create
и т.д.
Но опять же надо еще размеры Hinta определять
Наверное через Screen

Народ пишите все что вы думаете по данной проблеие

green2005

Дата 24.8.2006, 14:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 16.3.2006

Репутация: нет
Всего: нет

Всё! все сделал.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »