How to Create a gantt chart |
尚未結案
|
abang78
一般會員 發表:3 回覆:2 積分:1 註冊:2003-02-21 發送簡訊給我 |
|
flyup
資深會員 發表:280 回覆:508 積分:385 註冊:2002-04-15 發送簡訊給我 |
1.delphi-->ActiveX面版-->VtChart1元件 2.其他chart 元件使用範例 unit Unit1; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart; type
TForm1 = class(TForm)
Chart1: TChart;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation
uses EditChar; <---------------------!!!!
{$R *.DFM} procedure TForm1.Button1Click(Sender: TObject);
begin
EditChart(Self,Chart1 );
end; end. --- (if you use DBChart components) Uses DBEditCh;
EditChart(Self,DBChart1 );
|
Tedd
一般會員 發表:4 回覆:2 積分:1 註冊:2004-11-16 發送簡訊給我 |
n/a 你好: 我試了第二種方法,但是Delphi一直回應找不到IEditCha.pas,我不了解的是已經有IEditCha.dcu了,為什麼還要IEditCha.pas.想問一下可否有解決方法?謝謝!
引言: 1.delphi-->ActiveX面版-->VtChart1元件 2.其他chart 元件使用範例 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart; type TForm1 = class(TForm) Chart1: TChart; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses EditChar; <---------------------!!!! {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin EditChart(Self,Chart1 ); end; end. --- (if you use DBChart components) Uses DBEditCh; EditChart(Self,DBChart1 );發表人 - Tedd 於 2004/12/16 11:01:06 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |