在Windows工具列上 增加非MainForm的視窗
https://stackoverflow.com/questions/5493591/how-can-i-get-taskbar-buttons-for-forms-that-arent-the-main-form
type
TMyForm = class(TForm)
...
- Apr 07 Wed 2021 11:46
-
Delphi 工具列上增加Form點選功能
- Apr 28 Tue 2020 11:41
-
Delphi TStringList 自訂排序功能
使用TStringList 達成依照數字大小排序
unit XBCurrList;
interface
uses System.Classes, System.Math, System.SysUtils;
type
- Dec 25 Wed 2019 09:59
-
Delphi Enter 改成 TAB
procedure TForm1.Edit1KeyPress (Sender: TObject; var Key: Char) ;
begin
If Key = #13 Then Begin
If HiWord(GetKeyState(VK_SHIFT)) <> 0 then
SelectNext(Sender as TWinControl,False,True)
- Dec 02 Mon 2019 08:40
-
Delphi 四捨五入
Delphi 四捨五入
//RoundF 商用的四捨五入
function RoundF(X: Extended; Decimal: integer = 0): Extended;
function RoundI(X: Extended): Int64;
begin
- Nov 19 Tue 2019 11:18
-
Delphi TXBPWEdit 實現Edit部分文字屏蔽
(* ---------------------------------------------------------------------------------------------- *)
// XBPassWordEdit_Unit
// Author: Kamilia
- Nov 06 Wed 2019 22:07
-
Delphi 取得當前時間(微秒)
Window Api
QueryPerformanceFrequency
以下簡稱 CPU頻率?
QueryPerformanceCounter
- Oct 10 Thu 2019 10:34
-
Delphi FMX InputBox 多欄 / 密碼
http://docwiki.appmethod.com/appmethod/1.16/libraries/en/FMX.Dialogs.InputQuery
InputQuery('Login',['Username',#1'Password:'],['',''],
procedure(constAResult:TModalResult;constAValues:arrayofstring)
begin
case AResult of
- Aug 24 Sat 2019 16:14
-
C# INI讀取寫入
using System.Runtime.InteropServices; //使用Winapi 讀寫 INI
...
//INI副程式
#region SetupIni
public class SetupIni
- Aug 22 Thu 2019 23:58
-
高DPI解法 所有程式語言適用
找了好久 終於找到高DPI的解法
1.手動執行 執行檔>右鍵內容>變更高DPI設定>覆寫高DPIn縮放比例行為 打勾> 縮放執行者 選系統 (選應用程式無效)
2. https://superuser.com/questions/1230346/overriding-high-dpi-scaling-from-the-command-line
- Aug 10 Sat 2019 11:36
-
Python實作WOL及DMS作業系統排程執行
使用Python 實作WOL代碼如下
import socket
def GetMagicPacket(aMacAddr): #取得WOL封包
_Packet = b'' #前面要加6個FF
return 6 * _Packet + 16 * aMacAddr
- Jul 27 Sat 2019 15:29
-
Delphi FMX 手機倒退鍵
偵測手機倒退鍵
Form > KeyDown
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
Shift: TShiftState);
begin