Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > События формы

Автор: Rommik 16.1.2006, 15:22

Как сделать, чтобы форма приложения была всегда поверх всех окон и не сворачивалась никакими дейсвиями пользователя до окончания работы приложения???

Автор: FRAGNATIC 16.1.2006, 15:30

FormStyle:=fsStayOnTop;

Автор: Alexeis 16.1.2006, 15:37

Цитата

FormStyle:=fsStayOnTop;

кнопка свернуть - сворачивает smile

Автор: _hunter 16.1.2006, 15:48

еще BorderStyle в bsNone поставь

Автор: z-END 16.1.2006, 15:50

советую попользоваться поиском, ибо эта тема неоднократно была...
против Win+D пока вроде приема ненашли..

Автор: Alexeis 16.1.2006, 16:29

Код


type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    procedure WMGetSysCommand(var message : TMessage);  message WM_SYSCOMMAND;

    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMGetSysCommand(var message : TMessage) ;
begin
  if (message.wParam <> SC_MINIMIZE)
  then
    inherited;
end;

Автор: Демо 16.1.2006, 16:38

alexeis1

Чуть-чуть подправлю:

Код


  if (Message.Msg=WM_SYSCOMMAND) and
     ((Message.wParam and $ffff0) = SC_MINIMIZE) then ...

По основному вопросу:

Можно использовать комбинацию от alexeis1 + проверка по таймеру/возврат наверх.
Вот только зачем изврат такой - непонятно.

Автор: Alexeis 16.1.2006, 16:55

А зачем проверять (Message.Msg=WM_SYSCOMMAND) smile

Добавлено @ 16:56
И при чем здесь таймер smile

Автор: Snowy 16.1.2006, 19:12

Цитата(z-END @ 16.1.2006, 15:50

)

советую попользоваться поиском, ибо эта тема неоднократно была...
против Win+D пока вроде приема ненашли..

Ну отчегож. Если воспользоваться поиском, то я вот такой вариант рисовал:

Код


procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);    
begin    
  Application.BringToFront;    
  Form1.FormStyle:=fsStayOnTop;    
end;    
procedure TForm1.FormCreate(Sender: TObject);    
begin    
  Application.Minimize;    
end;