摘要:
procedure TForm1.SpeedButton1Click(Sender: TObject); var Apoint:TPoint; begin APoint:=TSpeedButton(Sender).ClientToScreen(Point(0,TSpeedButton(Sender) 阅读全文
摘要:
memorystream base64 function BaseImage(fn: string): string; var m1: TMemoryStream; m2: TStringStream; str: string; begin m1 := TMemoryStream.Create; m 阅读全文
摘要:
先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体): {自定义方法: 在窗体上绘制...} procedure MyMethod; var i: Integer; begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(... 阅读全文