| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

окно формы поверх остальных окон [D7, XP]

aht ©   (2006-10-03 08:52:00) 

как можно сделать сабж, если FormStyle=fsStayOnTop недостаточно?

---

aht   (2006-10-03 14:44:00) [1]

не для главной формы...
вот так работает нормально:

public
{ Public declarations }
procedure CreateParams(var Params: TCreateParams); override;  

и далее:

procedure TForm4.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.WndParent:=GetDesktopWindow;
  Params.ExStyle:=Params.ExStyle or WS_EX_TOPMOST;
end;

---

Игорь Шевченко   (2006-10-03 14:35:00) [2]

> как можно сделать сабж, если FormStyle=fsStayOnTop недостаточно?


Для главной формы достаточно

---

vegarulez   (2006-10-03 14:32:00) [3]

У меня допустим как это выглядеть должно???
Вот так не работает...

unit Unit1;

interface

uses
{$IFDEF MSWINDOWS}
Windows,
{$ENDIF}
 SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs,
 QStdCtrls, QExtCtrls, QButtons, Unit2, QTypes, IdComponent, IdUDPBase,
 IdUDPClient, IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze;

type
  TFormMain = class(TForm)
   Label10: TLabel;
   Timer1: TTimer;
   Label11: TLabel;
   Label12: TLabel;
   Label13: TLabel;
   procedure Timer1Timer(Sender: TObject);
   procedure SendtoServer0();
   function Rmid(i:integer):string;
   protected
   procedure CreateParams(var Params: TCreateParams); override;  public;

 private
 Bitmap: TBitmap;
 F: string;
 s1,sdt,oper,OPTION,smid:string;
 tt,mid:integer;
   { Private declarations }
 public
 property a:String Read F Write F;
 property dt:String Read s1 Write s1;
   { Public declarations }
 end;

var
 FormMain: TFormMain;
 DateTime : TDateTime;

implementation

uses Unit3, Unit5, Unit7, Unit6;

подскажи плз...

---

Ketmar   (2006-10-03 13:45:00) [4]

он, однако, уже давно описан. в генофонде.

---

Ketmar   (2006-10-03 13:45:00) [5]

и это не класс. а запись.

---

vegarulez   (2006-10-03 13:42:00) [6]

protected
  procedure CreateParams(var Params: TCreateParams); override;  public;

что-то вот тут ругается... :(

Как описать класс TCreateParams?

---

orinoko   (2006-10-03 11:23:00) [7]

type TForm1 = class(TForm)
  ....
  ....
 protected
   procedure CreateParams(var Params: TCreateParams); override;  public;

...........................................

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
   inherited CreateParams(Params);
   Params.WndParent:=GetDesktopWindow;
   Params.ExStyle:=Params.ExStyle or WS_EX_TOPMOST;
end;

---

Наверх