2015年8月21日
模态运行EXE程序
function ExecShowModal(APath: PChar; ACmdShow: Integer; ATimeout: Longword): Integer;var vStartupInfo: TStartupInfo; vProcessInfo: TProcessInformati... Read More
posted @ 2015-08-21 18:13 findumars Views(451) Comments(0) Diggs(0)
应用程序的关闭退出（在FMX中，Activity替代了Form的概念）
在VCL中，关闭程序的主窗体也就意味着程序的主循环结束，主程序自然而然结束。所以在主窗体中使用窗体的关闭函数（Close）即可，如下： procedure TfrmMain.btncloseClick(Sender: TObject); begin Close; end; 在FMX中，由Activi Read More
posted @ 2015-08-21 18:11 findumars Views(798) Comments(0) Diggs(0)
Dll方式的线程，需要引用这个
{== D6DLLSynchronizer =================================================}{: This unit handles the D6 synchronize problem in DLLs@author Dr. Peter Below... Read More
posted @ 2015-08-21 18:05 findumars Views(522) Comments(0) Diggs(0)
具有 Button 风格的 Panel（覆盖TCustomPanel的Paint函数，用到了ThemeServices）
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ImgList, ExtCtrls; type TForm2 = class( Read More
posted @ 2015-08-21 18:02 findumars Views(469) Comments(0) Diggs(0)
RichEdit中插入带背景色文本的一种思路
uses RichEdit;function TextToRtf( // 将文本处理为RTF格式 mText: WideString // 输入文本): WideString; // 返回处理后的RTF文本var I: Integer;begin Result := StringReplace... Read More
posted @ 2015-08-21 17:59 findumars Views(726) Comments(0) Diggs(0)