function ThreadFunc(P:Pointer):LongInt;stdcall;var i:Integer; dc:HDC; s:string;begin dc := GetDC(Form2.Handle); for i := 0 to 10000 do begin s := IntToStr(i); TextOut(dc,10,10,PChar(s),Length(s)); e
Delphi中DBChart的应用:1.绑定数据ADOQuery1.Active:=True;DBChart1.Series[0].DataSource:=ADOQuery1;DBChart1.Series[0].XLabelSource:='FiledName';DBChart1.Series[0].YValues.ValueSource:='FieldName';2.切换图表类型tmpChar
for I := 0 to dm_medtech_work_sum.ado_medtech_dept_sum.FieldCount - 1 do begin if i > 2 then begin BarSeries := TBarSeries.Create(chart_dept_fee_type); BarSeries.ParentChart := chart_dep
Copyright © 2005-2024 51CTO.COM 版权所有 京ICP证060544号