DELPHI动态创建删除FRAME
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,FM;
type
TForm2 = class(TForm)
Panel1: TPanel;
Button2: TButton;
ScrollBox1: TScrollBox;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TFM = Array Of TFrame1;
var
Form2: TForm2;
aFM: TFM;
procedure DeleteArrItem(var arr: TFM ; Index: Integer);stdcall;
implementation
{$R *.dfm}
procedure DeleteArrItem(var arr: TFM ; Index: Integer);
var
Count: Cardinal;
i:integer;
begin
Count := Length(arr);
if (Count = 0) or (Index < 0) or (Index >= Count) then Exit;
Move(arr[Index+1], arr[Index], (Count-Index)* SizeOf(arr[0]));
SetLength(arr, Count - 1);
for I := 0 to Length(arr) - 1 do
begin
arr[i].Label1.Caption:=inttostr(i);
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
var
fram:TFrame1;
begin
SetLength(aFM,length(aFM)+1);
aFM[length(aFM)-1] :=TFrame1.Create(nil) ;
fram:=aFM[length(aFM)-1];
fram.Label1.Caption:=inttostr(length(aFM)-1);
fram.Parent:=ScrollBox1;
end;
end.
unit fm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFrame1 = class(TFrame)
GroupBox1: TGroupBox;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
uses unit2;
{$R *.dfm}
procedure TFrame1.Button1Click(Sender: TObject);
begin
DeleteArrItem(aFM,strtoint(label1.Caption));
( Sender as Tbutton ).Parent.Parent.Destroy;
end;
end.
2023-12-12 19:35:07
311KB
1
易语言动态创建图片框源码例程程序调用API函数动态创建图片框。点评：易语言动态创建图片框源码是易语言API应用例程。
2023-09-26 11:19:08
10KB
1
内容索引:VB源码,界面编程,窗体控件,动态 VB动态创建、删除一个窗体控件通，过使用WithEvents关键字声明一个对象变量为新的命令按钮，动态增加的按钮，你可以单击“删除控件”按钮删除它。
2023-03-30 20:14:25
2KB
1
VB 动态创建、删除一个窗体控件 过使用WithEvents关键字声明一个对象变量为新的命令按钮，动态增加的按钮，你可以单击“删除控件”按钮删除它
2023-03-28 21:25:57
2KB
1
内容索引:C#源码,文件操作,TXT,数据流 C#动态创建文件并写入内容，这里主要是创建TXT文件，当然其它格式的文件也可以创建，您只需更改扩展名即可。本程序用到的主要是流的操作，流是一种快速读取文件的数据形式。通过流的方式，即可以保证数据读取的安全性，也能提高数据读取和保存的效果。
2022-12-01 00:19:09
14KB
1
今天小编就为大家分享一篇layui 根据后台数据动态创建下拉框并同时默认选中的实例，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧
2022-11-25 14:17:51
34KB
1
本资源为C++,Qt。
使用Qt creator打开项目。
Qt 版本5.5.1。
实现了动态创建Tab按钮，和动态创建Tab页，并在Page中动态创建Item的功能。
Tab按钮为自定义实现，通过管理布局实现Tab按钮的位置。
Page为stackedWidget中的Page,通过动态创建QWidget的方式，将page添加进去。
Page中有一个listWidget,用来管理Item的创建和布局。
对于想学习动态布局，动态创建stackedWidget的page页的同学非常有帮助。
2022-09-27 16:40:18
14KB