Form

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

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

    Leos Гость

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

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

    Barmutik Гость

    Выставь у формы fsStayOnTop...

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

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

    admin Well-Known Member

    Регистрация:
    8 авг 2003
    Сообщения:
    2.811
    Симпатии:
    0
    Leos
    можно через WinAPI
    Код (Text):
     // Окно поверъ других
    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;
    Юзай наздоровье :)
     
Загрузка...
Похожие Темы - Form
  1. garrick
    Ответов:
    3
    Просмотров:
    440
  2. SvetlanaL
    Ответов:
    0
    Просмотров:
    198
  3. SvetlanaL
    Ответов:
    0
    Просмотров:
    170
  4. SvetlanaL
    Ответов:
    0
    Просмотров:
    217
  5. Barakuda
    Ответов:
    0
    Просмотров:
    572
Статус темы:
Закрыта.

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