一行代碼讓無邊框窗體實現陰影

原創 cmd9x 2020-06-19 14:47 
SetClassLong(Self.Handle, GCL_STYLE, GetClassLong(Self.Handle, GCL_STYLE) or CS_DROPSHADOW);//窗體陰影


發表評論
所有評論
還沒有人評論，想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章

一個漂亮的Delphi程序(Delphi在分形藝術中的應用)

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs; type 

cnssk 2020-07-07 14:41:56

FireDAC 學習 - 3：建立數據庫連接 之 TFDManager

使用數據庫，第一步是建立和數據庫的連接。結果關於連接，不是第一篇，而是本系列第三篇。 我使用 FireBird 開源數據庫作爲測試。FireDAC 支持 FireBird。 在本系列第一篇，我沒有仔細說 FDConnection1 是如何

pcplayer 2020-07-07 09:56:56

FireDAC 學習 - 6：CachedUpdates 模式下查看被刪除的記錄

概念 前面的文章 FireDAC 學習 - 5 講到，將 FdQuery 和 FdMemTable 的 CachedUpdates 設置爲 True，然後在 FdMemTable 裏面編輯後，可以讀取到編輯改動的記錄，將編輯改動過的記錄輸

pcplayer 2020-07-07 09:56:55

FireDAC 學習 - 4：屬性繼承

我們知道，TFdQuery 是通過 TFdConnection 去連接數據庫的。 而 TFdConnection 連接數據庫的參數，可以通過 TFdManager 獲得。 打開前面的例子程序，在設計期，選擇 FdQuery1，看看其屬性面

pcplayer 2020-07-07 09:56:55

FireDAC 學習 - 5：三層，遠程提交，公文包模式

問題需求： 以前版本的 Delphi，三層架構的程序，採用 TClientDataSet 來作爲客戶端的內存表，所有用戶操作都是針對 TClientDataSet 裏面的記錄進行增刪改的操作。在這裏，用戶修改後的記錄，叫做 Delta。操

pcplayer 2020-07-07 09:56:55

Delphi獲取屏幕分辨率

GetSystemMetrics(SM_CXSCREEN);  //水平分辨率 GetSystemMetrics(SM_CYSCREEN);  //垂直分辨率

YanJinrong 2020-07-07 09:39:01

Delphi打開Windows啓動菜單

  procedure TForm1.Button1Click(Sender: TObject);    begin     SendMessage(handle,WM_SYSCOMMAND,SC_TASKLIST,0);   end;

YanJinrong 2020-07-07 09:39:00

Delphi隱藏和顯示Windows的任務欄

//隱藏任務條 procedure HideTaskBar; var   h1: THandle;   wndClass: array[0..50] of Char; begin   StrPCopy(@wndClass[0], 'She

YanJinrong 2020-07-07 09:39:00

Delphi下遍歷文件夾下所有文件的遞歸算法

procedure MakeTree(var slFile: TStrings; const FileExt: string); var   Sr : TSearchRec;   Err : integer;   TrSize, File

yonghenghaha 2020-07-07 04:45:17

Delphi 編寫數字簽名驗證並獲取簽名信息

[摘要]本文介紹Delphi 編寫數字簽名驗證並獲取簽名信息，並提供詳細的示例代碼供參考。 一個客戶想通過編程實現驗證程序自身的數字簽名來確保程序的完整性，防範病毒感染以及防止一些無聊人士的修改(通過十六進制編輯器替換一些版權、

u010569495 2020-07-07 02:47:43

delphi10.3.1 設置 SDK、啓動參數…

delphiXE10.3.1安裝完以後的開發環境設置 （Android SDK、啓動參數……） 1.設置Delphi啓動參數 [在圖標 點擊鼠標右鍵] ![在這裏插入圖片描述]) 到達 Delphi 快捷方式所在位置 注意

人生、蜕变 2020-07-07 01:55:40

使用Delphi 7實現Splash窗體

最近幫同學用D7做了一個很小的數據庫管理系統，爲了提示一些信息和美觀而在程序開始運行時設置了一個Splash窗體。具體的實現方法如下：1、打開D7新建一個Application，將默認的窗體Form1的Name屬性改爲frmMain，該窗

neowang 2020-07-06 15:28:26

在Delphi中調用C語言編寫的DLL

1、 使用Visual C++ 6.0編寫和鏈接DLL 打開Visual C++ 6.0集成開發環境，新建一個Win32 Dynamic-Link Library類型的工程CDLL，在工程中新建一個C語言源文件cdll.c。源文件中的內容

neowang 2020-07-06 15:28:25

2010-關於cxgrid使用的方法收藏

　　cxGrid控件功能很強大,有許多方法及屬性，其中有一個屬性gridmode。　　當你設置gridmode=true時,會提高查詢速度,爲false時則反之,爲什麼如此,在網上有相關的貼子。　　當設置gridmode=true時,則在

9807146wang 2020-07-06 03:45:35

FastReport如何打印表格式的空行？

實現效果概述:當打印一些數據時,我們希望每頁都打印20行，當不夠時，打印出空白表格！ 這是怎麼實現的呢？下面我說一下實現原理，報表通過FastReport實現 第一步:報表中需要用到的組建 PAGEHEADER，MasterData,Ch

9807146wang 2020-07-06 03:45:35