Вывести Opendialog поверх stayontop окна [D6, Win2k, WinXP]
DelphiN! © (2004-11-24 14:54:00)
Сделал, чтобы форма № 2 была поверх всех окон кодом :
var
Rect:TRect;
begin
GetWindowRect(handle,Rect);
SetWindowPos(Handle,HWND_TOPMOST,Rect.Left,Rect.Top,Rect.Right-Rect.Left,Rect.Bottom-Rect.Top,
SWP_SHOWWINDOW);
Теперь, когда вызываю OpenDialog, из формы № 1 его не видно
(его перекрывает форма № 2).
Как сделать чтобы OpenDialog вызываемый из формы № 1
перекрывал форму № 2?
nomshar (2004-11-24 17:32:00) [1]
> DelphiN!
Ежу понятно, что форма № 2 будет перекрывать OpenDialog. Она
тебе и сообщения об ошибках перекроет и т.п. Ты не пробывал
использовать просто HWND_TOP?
Если же использовать HWND_TOPMOST, то можно пойти следующим
путем.
Перед вызовом OpenDialog.Execute вызови для формы № 2 функцию
ту же функцию, но с другим с другим стилем.
Например, так.
procedure TForm1.OnOpenButtonClick(Sender: TObject);
begin
GetWindowRect(Handle, Rect);
if SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0,
SWP_NOMOVE + SWP_NOSIZE) <> 0 then
begin
if OpenDialog1.Execute then // и далее по тексту...
end;
end;
Ну, что-нибудь в этом роде.
Наверх 
ЧАТ |
Орешник |
|
