чекбокс - поверх всех окон

[puz]

Подскажите, пожалуйста, как сделать так, чтобы прога находилась поверх всех окон вслучае, когда в чекбоксе стоит флажок. Соответственно, когда флажок снят - у проги обычное поведение.

[Квэнди]

SetWindowPos(Handle,
HWND_TOPMOST,
Left,
Top,
Width,
Height,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

[puz]

после того как я этот кусок вставил в событие, действительно прога после установки флажка стала оставаться поверх всех окон. Выглядит так:

procedure TForm2.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
SetWindowPos(Handle,
HWND_TOPMOST,
Left,
Top,
Width,
Height,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;
...
...

после снятия флажка прога все равно остается поверх всех окон. как это можно изменить? Что не так? Вероятно, нужно что-то написать в else, но вот что?

[Трофимов Александр]

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if form1.CheckBox1.Checked=true then
form1.FormStyle:=fsStayOnTop else
form1.FormStyle:=fsNormal;
end;

[puz]

Спасибо. Как же все легко, оказывается. Всегда поражаюсь, как сам не догадался? Ну ничего, молодой ишшо.

[Квэнди]

procedure TCustomForm.SetFormStyle(Value: TFormStyle);
const
  HWND_STYLE: array[Boolean] of HWND = (HWND_NOTOPMOST, HWND_TOPMOST);
var
  OldStyle: TFormStyle;
  LRecreate: Boolean;
begin
  if FFormStyle <> Value then
  begin
    if ((Value = fsNormal) and (FFormStyle = fsStayOnTop)) or
       ((Value = fsStayOnTop) and (FFormStyle = fsNormal)) then
    begin
      FFormStyle := Value;
      if not (csDesigning in ComponentState) and HandleAllocated then
        SetWindowPos(Handle, HWND_STYLE[FFormStyle = fsStayOnTop], 0, 0, 0, 0,
          SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOOWNERZORDER);
    end
    else
    begin
      if (Value = fsMDIChild) and (Position = poDesigned) then
        Position := poDefault;
      LRecreate := not (csDesigning in ComponentState);
      if LRecreate then
        UpdateRecreatingFlag(True);
      try
        if LRecreate then DestroyHandle;
        OldStyle := FFormStyle;
        FFormStyle := Value;
        if ((Value = fsMDIForm) or (OldStyle = fsMDIForm)) and not Ctl3d then
          Color := NormalColor;
        if LRecreate then UpdateControlState;
        if Value = fsMDIChild then Visible := True;
      finally
        if LRecreate then
          UpdateRecreatingFlag(False);
      end;
    end;
  end;
end;

Собственно эта функция в оригинале и используется )

[Vincent]

Я это обычно немного проще делал:

procedure Form1.CheckBoxClick(Sender: TObject);
begin
if (Sender as TCheckBox).Checked then begin
Form1.FormStyle := fsStayOnTop;
Form1.OnPaint := FormPaint;
else begin
Form1.FormStyle := fsNormal;
Form1.OnPaint := nil;
end;
end;

procedure Form1.FormPaint(Sender: TObject);
begin
Application.RestoreTopMosts;
end;