Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

DelphiÖ®Tchart¿Ø¼þʹÓÃÐĵÃ

DelphiÖ®Tchart¿Ø¼þʹÓÃÐĵÃ
    ×î½üÔÚѧϰdelphi£¬×öÒ»¸öÈí¼þÁ·ÊÖ£¬Óõ½Tchart¿Ø¼þ£¬ÓÐЩ´ÖÂÔµÄʹÓÃÐĵ㬹©delphi³õѧÕ߲ο¼¡£
    TChartÊÇdelphiÀïÃæÒ»¸ö±ê×¼µÄͼÐÎÏÔʾ¿Ø¼þ¡£Ëü¿ÉÒÔ¾²Ì¬Éè¼Æ£¨at design time£©Ò²¿ÉÒÔ¶¯Ì¬Éú³É¡£¿ÉÏÂÔØSteema TeeChart 7£¬Ã»ÓÐÔ´´úÂ룬ÄÜÓþͺã¡
    ÓÉÓÚÎÒÒªÔÚͬһ¸öChart½çÃæÏÔʾ²»Í¬µÄͼÐΣ¬ÐèÒª¶¯Ì¬±à³Ìʵʱ»æÖÆÇúÏß¡£
    Ò»¡¢Ìí¼ÓSeries֮ǰ£¬ÒªÉ¾³ýÒÑÓеÄSeries£¬Ö»ÄÜ´ÓºóÍùǰɾ£¬·ñÔò³ö´í£º 
for i:=Chart1.SeriesCount-1 downto 0  do                    
  begin
    Chart1.Series[i].Free;
  end;
¶þ¡¢ÔËÐÐʱºò´´½¨Ò»¸öSeries, ÓжàÖÖ·½·¨¡£
1£®Var MySeries : TBarSeries ;
   MySeries := TBarSeries.Create( Self );
   MySeries.ParentChart := Chart1 ;
     2£®Chart1.AddSeries( TBarSeries.Create( Self ) );
     3£®Var MyClass : TChartSeriesClass;
        MyClass := TBarSeries ;
        Chart1.AddSeries( MyClass.Create( Self ) );
ÔÚÕâÀï¸ù¾Ý£¬Óõ½Ñ­»·½á¹¹¶¯Ì¬Ìí¼Ó¶àÌõSeries¡£
  for j:=0 to  NXUGMU-1 do
    begin
      series:=TFastLineSeries.Create(Chart1); 
      Chart1.AddSeries(Series);       //¶¯Ì¬Ôö¼Óseries
      series.LinePen.Width:=2;         //É趨Ïß¿í
      Chart1.Series[j].Title:='ËÙ¶È '+StrVelocity[j];  //¶¯Ì¬±êÌâ
      randomize;
    end;
Èý¡¢ÔÚchartÖл­³öµÄÇúÏßij¸öµãÉϱê¼Ç³ö¸ÃµãµÄÖµ
    series.Marks.Visible:=True;
    Series.Marks.Style:=smsValue;
ËÄ¡¢¹Ì¶¨TChartÖеÄ×ø±ê£¬²»Ê¹TChartÖеÄ×ø±ê¸úËæSeriesµÄ±ä»¯¶ø±ä»¯
//ÉèÖ


Ïà¹ØÎĵµ£º

delphiÀàµÄÏ໥ÒýÓÃ

ÔÚдc++µÄ½Ó¿Úʱ¿ÉÒÔ½«Á½¸öÏ໥ÒýÓõÄÀà·ÅÔÚÁ½¸ö.hÎļþÖУ¬È»ºó½«Õâ¸ö½Ó¿Ú·­Òëµ½delphiʱ£¬·ÅÔÚÁ½¸öÎļþÀï¾Í²»¿ÉÄÜÁË¡£Ö»ÄÜ·ÅÔÚͬһ¸öunitÖС£²¢ÇÒÒª½«ÕâÁ½¸öÀà¶¼·ÅÔÚͬһ¸ötypeÏÂÃæ½øÐж¨Ò壬µ±Ç°ÃæÒ»¸öÀàҪʹÓúóÃæÒ»¸öÀàʱ£¬ÐèÒªÔÚÇ°ÃæÒ»¸öÀàµÄÇ°Ãæ·ÅÖÃÒ»¸öǰÖÃÉùÃ÷£¬²¢ÇÒǰÖÃÉùÃ÷Ö»ÄÜÊÇIVariantMap = class;ÕâÖÖ¸ñʽ¶ø² ......

Delphi¶¯Ì¬Ê¼þÉîÈë·ÖÎö

Delphi¶¯Ì¬Ê¼þÉîÈë·ÖÎö
2009-2-7
×÷Õß:²»µÃÏÐ
ºËÐÄÌáʾ£º±¾ÊµÑéÖ¤Ã÷ÁËÔÚÀàÖз½·¨µÄµ÷ÓÃʱºò£¬ËùÓеķ½·¨¶¼Òþº¬ÁËÒ»¸öSelf²ÎÊý£¬²¢ÇҸòÎÊý×÷Ϊ¶ÔÏó·½·¨µÄµÚÒ»¸ö²ÎÊý´«µÝ...
Ê×ÏÈ×öÒ»¸ö¿Õ´°Ì壬·ÅÈëÒ»Button¡£
ÔÚimplementationÏÂÃæÉùÃ÷Á½¸ö·½·¨ÈçÏ£º
//Íⲿ·½·¨£¬Ö»ÉùÃ÷Ò»¸ö²ÎÊý£¬´Ëʱ°´ÕÕ±ê×¼µÄ¶ÔÏóÄÚ²¿Ê¼þ·½·¨T ......

DELPHIÏûÏ¢µÄ´¦ÀíÁ÷³Ì


ÏûÏ¢µÄ´¦ÀíÁ÷³Ì£¬Á÷³ÌÈçÏ£º
ÆäÅÉ·¢´¦Àí¹ý³ÌÏêϸÈçÏ£º
 ×¢Ò⣺TWinControlÀïÃæWndProcÓе÷ÓÃϵͳAPI DefWindowProc,¸Ãº¯Êýµ÷ÓÃȱʡµÄ´°¿Ú¹ý³ÌÀ´ÎªÓ¦ÓóÌÐòûÓд¦ÀíµÄÈκδ°¿ÚÏûÏ¢ÌṩȱʡµÄ´¦Àí¡£¶øTWinControlÀïÃæDefaultHandlerÓÖµ÷ÓÃÁËϵͳAPI CallWindowProc£¬¸Ãº¯ÊýCallWindowProc½«ÏûÏ¢ÐÅÏ¢´«Ë͸øÖ¸¶¨µÄ´°¿ ......

Delphi ¾¿¾¹²úÉúÁ˼¸¸öString¶ÔÏóµÄÎÊÌâ

¼¼Êõ½»Á÷,DH½²½â. Õâ¸öÊÇÔÚCSDNÉÏÃæ¿´¼ûµÄÎÊÌâ.ÎÒ˵˵×Ô¼ºµÄÏë·¨. procedure TForm1.btn1Click(Sender: TObject);
var
Str:String;
begin
Str:='abc' ;

Str:=str+'d';

str:=copy(Str,1,3);

str:=UpperCase(str);
end;
ÎÊÌâ1´ð°¸:2010ÏÂ
Unit4.pas.29: begin
005144E0 55 p ......

Delphi ¶¯Ì¬´´½¨´°¿ÚµÄ¼¸ÖÖ·½·¨

  ·½·¨1£º¿ÉдΪº¯Êý£¬ÔÙµ÷ÓÃ
  Application.CreateForm(TForm1, Form1);
  Form1.ShowModal;
  Form1.Free;
  ·½·¨2£º
  Form1:= TForm1.Create(Application);
  try
     Form1.ShowModal;
  finally
     ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ