登录
首页 » Delphi源码 » Delphi 使窗体始终在最前面

Delphi 使窗体始终在最前面

于 2022-03-14 发布 文件大小:5.43 kB
0 219
下载积分: 2 下载次数: 1

代码说明:

Delphi 使窗体始终在最前面,不几行代码实现的置顶窗口,大家对这种窗口相信都不会太陌生,不被其它的窗口遮挡,显示在最前面,典型的应用像一些视频播放器的播放窗口,在播放视频时可设置显示在最顶端,你可以边工作边看电影啦!详细实现请参考源代码。

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • Delphi 获得汉字区位
    Delphi 获得汉字区位码的源码,输入指定汉字,将得到这些汉字的区位码,关键代码请参考以下的源码:   procedure TForm1.Button1Click(Sender: TObject);   var    str:string;    hi,lo:integer;   begin    str:=trim(edit2.Text);    hi:=byte(str[1])-$a0;    lo:=byte(str[2])-$a0;    edit1.Text:=inttostr(hi)+inttostr(lo);   end;
    2022-02-21 00:07:08下载
    积分:1
  • Delphi 鼠标双击TStatusBar时判断是哪一个panels
    Delphi 鼠标双击TStatusBar时判断是哪一个panels,这个是把窗口的状态栏分隔,每个隔断中显示不同的内容,用鼠标双击不同的隔断,程序将判断用户点击了哪个隔断,并获取到该栏中的文字内容显示出来。
    2023-02-09 01:20:03下载
    积分:1
  • Delphi 监测程序多久未被使用
    Delphi 监测程序多久未被使用,以秒数来衡量使用了多久,打开一次然后再关闭,就可以显示使用了多长时间。
    2022-06-02 20:45:39下载
    积分:1
  • Delphi 替换一个键盘按钮
    Delphi 替换一个键盘按钮,将数字1改为a。将键盘所代表的键位重新定义并判断,得到一个不同的键位值。
    2023-01-10 10:50:03下载
    积分:1
  • Delphi实现窗体失去焦点时标题栏闪动特效
    这是个有意思的窗口设计实例源码,Delphi实现窗体失去焦点时标题栏闪动特效,flashwindow特效,这样可吸引操作者注意,其实实现这一功能并不复杂,以下代码最关键:   procedure TForm1.Timer1Timer(Sender: TObject);   begin    flashwindow(Handle,true);   end;   procedure TForm1.WMACTIVATEAPP(var message: TWMACTIVATEAPP);   begin    if Message.Active then    form1.Timer1.Enabled := false    else    form1.Timer1.Enabled := true;   end;   完整源码请下载。
    2022-07-08 18:47:20下载
    积分:1
  • Delphi 简单获取Windows时间的例子
    简单获取Windows时间-Delphi源代码,改时间的小程序,在Windows自带的时间管理中也可完成系统时间的修改,这个只是一个帮助了解Windows与Delphi编程的例子,如何通过Delphi的程序来修改Windows时间,大致就是这样实现的。可参见以下源码:   procedure TForm1.Button1Click(Sender: TObject);   var    Dtimer : TSystemTime;    hh,Ghh : Integer;   begin    hh := StrToInt(Trim(Edit4.Text));    if hh < 8 then    Ghh := 16 + hh    else    Ghh := hh - 8;    with Dtimer do    begin    wYear:=StrToInt(Edit1.Text);    wMonth:=StrToInt(Edit2.Text);    wDay:=StrToInt(Edit3.Text);    wHour:=Ghh;    wMinute:=StrToInt(Edit5.Text);    wSecond:=StrToInt(Edit6.Text);    end;    SetSystemTime(Dtimer);   end;
    2022-07-09 18:55:23下载
    积分:1
  • Delphi 使用Canvas美化ListBox列表项
    Delphi 使用Canvas美化列表项,当用户鼠标单击ListBox列表项时,该列表项高亮显示,改变背景色,文字居中对齐,如图所示。   主要是使用了Delphi中的Canvas.FrameRect对其进行美化,具体代码有兴趣可参考:   Canvas.FrameRect(Clientrect);   if odSelected in State then   begin    Canvas.Brush.Color:=clRed;    Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,8,15);    setBkMode(Canvas.Handle,TRANSPARENT );    Canvas.TextOut((Rect.right-Rect.Left) div 2,Rect.Top,Items.Strings[Index]);   end   else   begin    Canvas.Brush.Color:=clSkyBlue;    Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,15,15);    Canvas.TextRect(Rect,Rect.Left,Rect.Top,Items.Strings[Index]);   end;
    2022-06-01 23:33:23下载
    积分:1
  • Delphi生成立体字效果
    Delphi生成立体字效果,在文字下面增加阴影效果,这个在PS软件中是一个常用的特效,用Delphi也可以实现这种原生效果,阴影大小和面积、角度在代码中可以设置,最终自定义的阴影效果如图所示,实现了一个不错的立体文字效果。
    2023-07-03 14:00:03下载
    积分:1
  • Delphi 静音 左右声道音量控制
    Delphi控制系统静音,两个声道均不发出声音,同时若在非静态状态下,可控制左、右声道的音量大小,在代码中@表示指向变量v的指针(32位),调用此函数的用意就是得到右声道的值,在调节左声道的时候,不改变右声道}数字前面加$表示是十六进制数字,(t shl 8)表示t左移8位,部分参数设置代码如下:   procedure TForm1.FormCreate(Sender: TObject);   var    v:longint;   begin    waveoutgetvolume(0,@v);//得到现在音量,@v表示指向变量v的指针(32位)    trackbar1.Position:=hi(v);//设置左滑块的正确位置    trackbar2.Position:=hi(v shr 16);//设置右声道滑块的正确位置   end;
    2022-06-02 00:55:40下载
    积分:1
  • Delphi 应用程序背景与桌面融合在一起
    Delphi 应用程序背景与桌面融合在一起,运行后,显示windows 桌面上的内容,显示壁纸,拖动窗口移动,桌面背景并不移动,好像是一个桌面相框一样,实现代码:   for i:=0 to ControlCount-1 do   if Controls[i] is TGraphicControl then   begin    //使TLabel组件不透明显示    Controls[i].perform(WM_PAINT, TLabel(Controls[i]).canvas.handle, 0);   end;
    2022-02-02 23:31:59下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载