Delphi
ts_otaku
这个作者很懒,什么都没留下…
展开
-
Delphi 调用Dll
Dll 中写法:调用主程序中写法:原创 2014-07-16 12:31:48 · 603 阅读 · 0 评论 -
Delphi 动态创建控件,是否时报越界错误
1.循环遍历载体时,动态创建的控件没释放一个载体的controlcount 则减 1所以使用yix原创 2014-08-06 15:11:50 · 494 阅读 · 0 评论 -
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 · 721 阅读 · 0 评论 -
修改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 · 562 阅读 · 0 评论 -
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 · 7143 阅读 · 0 评论 -
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 · 504 阅读 · 0 评论 -
Delphi Label 文字左右、垂直居中
1.左右居中Alignment := tacenter;2.垂直居中lay原创 2014-07-16 15:24:48 · 9529 阅读 · 0 评论 -
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 · 934 阅读 · 0 评论 -
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 · 817 阅读 · 0 评论 -
Delphi Show Form
界面设计中,需求可能会要求。二级界面最小化的时候,一级界面要显示出来,但是不能够点击。Delphi 代码: ejForm.Show; EnableWindow(yjForm.Handle,False);在关闭ejForm的时候 EnableWindow(yjForm.Handle,True);原创 2016-01-15 09:40:52 · 571 阅读 · 0 评论