окно формы поверх остальных окон

← →
aht © (2006-10-03 08:52) [0]

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

← →
orinoko (2006-10-03 11:23) [1]

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;

← →
vegarulez © (2006-10-03 13:42) [2]

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

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

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

← →
Ketmar © (2006-10-03 13:45) [3]

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

← →
Ketmar © (2006-10-03 13:45) [4]

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

← →
vegarulez © (2006-10-03 14:32) [5]

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

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;

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

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

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

не для главной формы...
вот так работает нормально:
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;

окно формы поверх остальных окон Найти похожие ветки