ts_otaku-优快云博客

原创 unigui 学习

Unigui学习记录

2023-09-06 17:41:34 229 1

原创 Delphi Show Form

界面设计中，需求可能会要求。二级界面最小化的时候，一级界面要显示出来，但是不能够点击。Delphi 代码： ejForm.Show; EnableWindow(yjForm.Handle,False);在关闭ejForm的时候 EnableWindow(yjForm.Handle,True);

2016-01-15 09:40:52 604

转载 c# 调用 c++ dll 参数为结构体数组指针

结构体的定义[StructLayout(LayoutKind.Sequential, Size = 64, CharSet = CharSet.Ansi), Serializable] public struct UDPDeviceINFO{[MarshalAsAttribute(UnmanagedType.ByValArray, SizeConst = 10)]

2015-05-22 15:43:56 1007

转载 GridControl 实现Sorcll滚动条滚动虚列表加载数据

XMAL代码

2015-05-21 11:48:32 2853

原创 c# 使用Newtonsoft.Json 对数据进行打包与解析

Newtonsoft.Json.dll 的下载就不多说了，网上很多1.打包可以根据自己的消息需求，建立一个类存在消息类容如：public class Message{public string msgtype;public string msgreq;public string dpto; }打包的方法为：Message msg = new M

2015-02-11 11:09:48 3588

原创 Delphi 动态创建控件，是否时报越界错误

1.循环遍历载体时，动态创建的控件没释放一个载体的controlcount 则减 1所以使用yix

2014-08-06 15:11:50 510

转载 Delphi 窗体透明化

unit Unit1;{The transparent form effect is done with Regions. First create a region that encompasses the entire form. Then, find the client area of the form (Client vs. non-Client) and combi

2014-07-24 18:02:31 746

原创 StringGrid 删除行，行ID将不正确的解决方法

typrocedure TFMMain.N1Click(Sender: TObject);var iRow : Integer;begin if strngrdResult.Selection.Top > 0 then begin iRow := strngrdResult.RowCount; TMyGrid(strngrdResult).Move

2014-07-17 11:48:28 528

原创 Delphi Label 文字左右、垂直居中

1.左右居中Alignment := tacenter;2.垂直居中lay

2014-07-16 15:24:48 9785

原创 Delphi UDPSocket 发送Record 记录类型

type TStructData = record Wlan_MAC : array [1..14] of Char; Eth_MAC : array [1..14] of Char; Sqlite_Name : array [1..12] of Char; Serial_number : array [1..18] of Char; Nam

2014-07-16 13:30:36 855

原创 Delphi 调用Dll

Dll 中写法：调用主程序中写法：

2014-07-16 12:31:48 622

原创 Delphi StringGrid 屏蔽鼠标中间

Procedure TFMHourKeyIn.OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);begin if Msg.message = WM_MouseWheel then begin if strngrdRouter.Focused then begin SendMessage(strngrdRou

2014-07-16 12:20:06 977

原创修改InputQuery 实现 DateTimePicker 的功能

function GetAveCharSize(Canvas: TCanvas): TPoint;var I: Integer; Buffer: array[0..51] of Char;begin for I := 0 to 25 do Buffer[I] := Chr(I + Ord('A')); for I := 0 to 25 do Buffer[I + 2

2014-07-04 17:35:31 575

原创 Delphi Combobox自动选择项及触发onchange事件

2中方法：1.StrngLst := TStringList.Create; StrngLst.Clear; SplitColumns(strngrdProgram.Cells[2,strngrdProgram.Selection.Top],StrngLst,';'); for i := 0 to StrngLst.Count - 1 do begin

2014-06-30 17:59:50 7301