delphi signal控件怎么用
发布网友
发布时间：2022-08-12 03:29
共1个回答
热心网友
时间：2024-12-04 16:25
1.不同软件编程员要合并代码时,图形界面合并比较困难.
2.当主菜单选择不同时,图形界面需要切换时.
而自己建立控件就比较简单了,只要先定义一个控件,然后使用控件进行建立就可以了.而一切在窗口中设置的属性在命令行中也可以设置.下面列出了几个控件的建立和释放的例子。
Panel控件建立
Panel1: TPanel;
Panel1 := TPanel.Create(Form1);
Panel1.Parent := Form1;
Panel1.Name := 'Panel1';
Panel1.visible := True;
Panel1.Caption := '';
Panel1.Align := alCustom;
Panel1.AutoSize := True;
Panel1.BevelOuter := bvNone;
Panel1上建立一个IMAGE控件
Image1: TImage;
Image1 := TImage.Create(Form1);
Image1.Parent := Panel1;
Image1.Name := 'Image1';
Image1.visible := True;
Image1.Align := alClient;
Panel1上建立一个名为wr的Panel并添加点击事件.
wr: TPanel;
wr := TPanel.Create(Form1);
wr.Parent := Panel5;
wr.Name := 'wr';
wr.visible := True;
wr.Caption := 'WR';
wr.OnClick := wrClick;
这种情况下需要建立一个wrClick的过程.
ListView控件建立并对显示结果添加一个点击事件
ListView1:TListView;
ListView1 := TListView.Create(Form1);
ListView1.Parent := Form1;
ListView1.Name := 'ListView1';
ListView1.visible := True;
ListView1.ViewStyle := vsReport;
ListView1.OnSelectItem := selectSignalKline;
时间控件建立并设置时间为当前时间
DateTimeStart:TDateTimePicker
DateTimeStart := TDateTimePicker.Create(Form1);
DateTimeStart.Parent := PanelSignalSetting;
DateTimeStart.Name := 'DateTimeStart';
DateTimeStart.visible := True;
DateTimeStart.DateTime := Now;
很多控件都是可以在代码中添加的,也可以通过Free释放掉这些控件.在窗口中设置的方法同样也可以在代码中编写.
