Frame创建窗体实例

 1 public class Test {
 2 
 3     public static void main(String[] args) {
 4         // TODO Auto-generated method stub
 5         Frame f = new Frame();
 6         //关闭窗口
 7         f.addWindowListener(new WindowAdapter() {
 8 
 9             @Override
10             public void windowClosing(WindowEvent e) {
11                 System.exit(0);
12             }
13             
14         });
15         //设置尺寸
16         f.setSize(500, 600);
17         //设置出现的位置
18         f.setLocation(100, 100);
19         //修改默认布局
20         f.setLayout(null);
21         
22         //设置文本框
23         TextField text = new TextField();
24         text.setSize(200,30);
25         text.setLocation(200, 200);
26         text.setEchoChar('*');
27         f.add(text);
28         
29         //设置标签
30         Label l = new Label("账号");
31         l.setLocation(150, 200);
32         l.setSize(100, 30);
33         f.add(l);
34         
35         //设置按钮
36         Button b = new Button("确定");
37         b.setSize(100, 50);
38         b.setLocation(200, 250);
39         f.add(b);
40         
41         //显示窗体
42         f.setVisible(true);
43 
44     }
45     
46     
47 
48 }

 

转载于:https://www.cnblogs.com/jpwz/p/5880369.html

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 = 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.
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值