Step by Step

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

随笔分类 -  随记

获取打开的记事本内容（转自万一博客）
摘要：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 生活照旧 阅读(108) 评论(0) 推荐(0)

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 生活照旧 阅读(340) 评论(0) 推荐(0)

导航