DEVExpress实现流程图
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters, Vcl.StdCtrls, dxflchrt, System.ImageList, Vcl.ImgList;
type
TForm1 = class(TForm)
dxFlowChart1: TdxFlowChart;
Button1: TButton;
btnsave: TButton;
Button2: TButton;
btnLoad: TButton;
Button3: TButton;
ImageList1: TImageList;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure btnsaveClick(Sender: TObject);
procedure btnLoadClick(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses dxFcEditAdv,dxFlowChartDesigner;
//上面二个很关键,第一个引用才会弹出对话框,第二个才会弹出新的流程图设计窗口
{$R *.dfm}
procedure TForm1.btnLoadClick(Sender: TObject);
begin
dxFlowChart1.LoadFromFile('d:\a.txt');
end;
procedure TForm1.btnsaveClick(Sender: TObject);
begin
dxFlowChart1.SaveToFile('D:\a.txt');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if ShowFlowChartEditor(dxFlowChart1,'') then
begin
self.Caption:='a';
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
dxFlowChart1.Clear;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
PFlowchar:TdxFlowChartEditorOptions;
begin
PFlowchar:= TdxFlowChartEditorOptions.create;
PFlowchar.UseAdvancedShapesOnly:=true;
if ShowFlowChartEditor(dxFlowChart1,'',PFlowchar) then
begin
self.Caption:='a';
end;
end;
end.
这篇好文章是转载于:学新通技术网
- 版权申明: 本站部分内容来自互联网,仅供学习及演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,请提供相关证据及您的身份证明,我们将在收到邮件后48小时内删除。
- 本站站名: 学新通技术网
- 本文地址: /boutique/detail/tanhfjaige
-
photoshop保存的图片太大微信发不了怎么办
PHP中文网 06-15 -
Android 11 保存文件到外部存储,并分享文件
Luke 10-12 -
word里面弄一个表格后上面的标题会跑到下面怎么办
PHP中文网 06-20 -
《学习通》视频自动暂停处理方法
HelloWorld317 07-05 -
photoshop扩展功能面板显示灰色怎么办
PHP中文网 06-14 -
微信公众号没有声音提示怎么办
PHP中文网 03-31 -
excel下划线不显示怎么办
PHP中文网 06-23 -
excel打印预览压线压字怎么办
PHP中文网 06-22 -
怎样阻止微信小程序自动打开
PHP中文网 06-13 -
TikTok加速器哪个好免费的TK加速器推荐
TK小达人 10-01