1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Form

Тема в разделе "Delphi - программирование", создана пользователем Leos, 23 май 2004.

Статус темы:
Закрыта.
  1. Leos

    Leos Гость

    Репутация:
    0
    Как сделать, что бы форма была всегда поверх другой и при этом всё время была активна (выделена), но не модальна.
    Например как панель инструментов в photodhop'e?
     
  2. Гость

    Репутация:
    0
    Leos
    чтобы была поверх - надо установить onTop.
     
  3. Barmutik

    Barmutik Гость

    Репутация:
    0
    Выставь у формы fsStayOnTop...

    Но этого может оказаться мало ...

    Если будет мало докинь вопрос я код запощу который гарантирует что форма всегда будет видна сверху.
     
  4. admin

    admin Well-Known Member

    Репутация:
    0
    Регистрация:
    8 авг 2003
    Сообщения:
    2.754
    Симпатии:
    1
    Leos
    можно через WinAPI
    Код:
     // Окно поверъ других
    procedure OnTop(Form: Thandle; const ShowOnTop: Boolean);
    var
    Where: HWnd;
    begin
    if ShowOnTop then begin
     Where := HWND_TOPMOST;
    //  windows.SetParent(form, HWND_Desktop);
    end
    else
     Where := HWND_NOTOPMOST;
    SetWindowPos(Form, Where, 0, 0, 0, 0,
     SWP_NOACTIVATE or SWP_NOMOVE or
     SWP_NOSIZE or SWP_NOSENDCHANGING);
     BringWindowToTop(Where);
    end;
    Юзай наздоровье :)
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей