zoukankan      html  css  js  c++  java
  • Delphi 窗体拖动,无边框,透明的设置

    1、使Form没有标题栏和边框,只需要设置BorderStyle:=bsNode;

    2、使Form透明,即只显示控件,假设Form尺寸:300*400,控件尺寸:200*200;

    a、procedure TForm1.FormCreate(Sender: TObject);

      begin
        BorderStyle := bsNone;
        Brush.Style := bsClear;
      end;

      只是使Form透明了,但所占据的空间还在,即点击Form的透明区域,其他应用获取不到焦点,鼠标其实还在From上。

    b、设置Form的Color和TransparentColorValue属性值相同,并且使TransparentColor值为True。

      该方法可以使Form真正的透明,即使点击Form的透明区域,其他的应用也可以获得焦点,就好像透明区域真的不存在一样。

    3、设置窗体拖动,并非只有将鼠标放到标题栏才可以。

    procedure TLoginForm.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
    begin

    //以下两句,缺一不可。
    ReleaseCapture;
    Perform(WM_SYSCOMMAND,$f012,0);
    end;

  • 相关阅读:
    UIPickerView-一.01-
    闭包-01-Swift
    Swift 入门-01-概述
    git使用命令行-01-自己操作的
    FetchedResultsController-03-CoreData相关
    SQLite-05-增删改查
    Sqlite函数总结-04
    List<string>转xml
    比较两个List<T>是否相同
    获取DataTable前几条数据
  • 原文地址:https://www.cnblogs.com/ITinfo/p/4141089.html
Copyright © 2011-2022 走看看