Форум: "Начинающим";
Текущий архив: 2006.10.22;
Скачать: [xml.tar.bz2];
Внизокно формы поверх остальных окон Найти похожие ветки
← →
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;
подскажи плз...
← →
Игорь Шевченко © (2006-10-03 14:35) [6]
> как можно сделать сабж, если FormStyle=fsStayOnTop недостаточно?
Для главной формы достаточно
← →
aht © (2006-10-03 14:44) [7]не для главной формы...
вот так работает нормально:
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;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.10.22;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.049 c