Step by Step

雪压枝头低,虽低不着泥。一朝红日出,依旧与天齐。

2022年12月10日 #

Delphi 设置Edit内容居中、居左、居右显示

摘要： SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_CENTER);SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1 阅读全文

posted @ 2022-12-10 17:27 生活照旧 阅读(411) 评论(0) 推荐(0) 编辑

2022年11月3日 #

Delphi获取Unix当前系统时间戳

摘要： procedure TForm1.btn4Click(Sender: TObject); var Str :String; D :tDatetime; a:Double; function DateTimeToUnixDate(const ADate: TDateTime): Longint; co 阅读全文

posted @ 2022-11-03 20:36 生活照旧 阅读(218) 评论(0) 推荐(0) 编辑

SQLServer 将多行数据，合并成一条

摘要： select Name ,Sex ,Age ,IDCardNo ,Tel , stuff((select ','+ Remark from #Temp where a.RegID=RegID for xml path('')),1,1,'') as 您的体质 from #Temp a group b 阅读全文

posted @ 2022-11-03 11:06 生活照旧 阅读(8) 评论(0) 推荐(0) 编辑

2021年5月30日 #

获取打开的记事本内容（转自万一博客）

摘要： procedure TForm1.btn1Click(Sender: TObject);var h: HWND; p: Pointer; Len: Integer;begin h := FindWindow('Notepad', nil); if h = 0 then Exit; h := GetW 阅读全文

posted @ 2021-05-30 22:33 生活照旧 阅读(83) 评论(0) 推荐(0) 编辑

2021年5月24日 #

Delphi dbgridEh对某一列动态添加PickList

摘要： 通过遍历循环数据库的方式添加例： While not qryPerson.Eof do begin dgMain.Columns[0].PickList.Add(qryPerson.FieldByName('Name').AsString); qryPerson.Next; end 阅读全文

posted @ 2021-05-24 19:13 生活照旧 阅读(290) 评论(0) 推荐(0) 编辑

导航