Показать сообщение отдельно
  #6  
Старый 02.12.2007, 19:37
Аватар для Rokuell
Rokuell Rokuell вне форума
Активный
 
Регистрация: 27.12.2006
Адрес: Псков
Сообщения: 274
Версия Delphi: Delphi 7
Репутация: 497
Восклицание

Можно попробовать создать панель прямо на рабочем столе:

Код:
var P:TPanel;

procedure TForm1.FormCreate(Sender: TObject);
begin
 P:=TPanel.Create(Self);
 P.ParentWindow:=GetDesktopWindow;
 P.Left:=Screen.Width div 4;
 P.Width:=Screen.Width div 2;
 P.Top:=Screen.Height div 4;
 P.Height:=Screen.Height div 2;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 P.Free;
end;
Ответить с цитированием