01 2016 档案

控件数组
摘要：var Edits: array [0..5] of TEdit; // 把所有的Edit当成是数组procedure TForm1.Button1Click(Sender: TObject);var i, j: integer;begin for i := 0 to ComponentCou... 阅读全文
posted @ 2016-01-08 19:30 王云盼 阅读(475) 评论(0) 推荐(0)
更改组件的从属关系
摘要：procedure TForm1.ToolButton1Click(Sender: TObject);begin Edit1 := TEdit.Create(Panel1); // 将panel放在Edit控件上,Panel属于Edit Edit1.Parent := self; ... 阅读全文
posted @ 2016-01-08 19:04 王云盼 阅读(201) 评论(0) 推荐(0)
FMX下Edit只能输入数字
摘要：procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);var i: Boolean;begin i := (keyChar #57) ; if ... 阅读全文
posted @ 2016-01-08 18:51 王云盼 阅读(644) 评论(0) 推荐(0)