VPF::Все формы приложения поверх всего

Winprogrammer

Дата 24.3.2006, 12:02 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 141
Регистрация: 23.3.2006
Где: ::Россия.РСО-Алан ия.Владикавка

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

Предыдущий пример не работает. Попробуй так.

Код


var
      wnd_Handle:HWND;

procedure Form1.Create(...);
begin
 wnd_Handle:=GetActiveWindow;
end;

procedure Form1.timer1timer(...);
begin 
 BringWindowToTop(wnd_Handle);
end;

Надеусь будет работать.

--------------------

Я не понял Вашего вопроса, но я Вам на него отвечу…-----------

Uploading файлов без гемороя - это просто!!!

Winprogrammer.ifolder.ru

Sunvas

Дата 25.3.2006, 08:29 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(Ciber SLasH @ 24.3.2006, 08:59

)

SetWindowPos(Handle, HWND_TOPMOST,
(GetSystemMetrics(SM_CXSCREEN) - Width) div 2, // координата X
(GetSystemMetrics(SM_CYSCREEN) - Height) div 2, // координата Y
Width, // ширина окна
Height, // высота окна
SWP_SHOWWINDOW)

Повторяю для тех, кто не понял: для одной формы это работает, но вот уже для двух и более форм моего приложения - НЕТ!

Цитата(Winprogrammer @ 24.3.2006, 12:02

)

Надеусь будет работать.

Надежда умирает последней... Не работает..

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Sunvas

Дата 6.4.2006, 07:12 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Вопрос снят. smile

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Демо

Дата 29.4.2006, 22:37 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

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

Вот решение:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Idle(Sender: TObject; var Done: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Hide;
  FOrm2.Show;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnIdle := Idle;
end;

procedure TForm1.Idle(Sender: TObject; var Done: Boolean);
begin
  if Form2.Showing then SetWindowPos(FOrm2.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE    or SWP_NOSIZE);
end;

end.

--------------------

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