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 |
發表時間：2003-02-21 14:53:35
IP:61.171.xxx.xxx 未訂閱
系統時間：2024-07-06 6:58:58
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |