- 博客(2)
- 资源 (1)
- 收藏
- 关注
原创 自定义编辑框选取
Edit2.SelStart := Edit2.SelLength ; SendMessage(Edit2.Handle , EM_SETSEL, Edit2.SelStart-StrLen(StrRScan(PChar(Edit1.Text ),/))+1, -1); 例:
2006-11-29 10:22:00 467
原创 任务拦信息的获取
procedure TForm1.FormCreate(Sender: TObject);var r: TRect;begin //SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);//取得工作区大小(不含任务拦) //另一种 //ShowMessage(r.top=+ IntToStr(r.Top ) + //
2006-11-29 10:08:00 399
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人