2016年1月8日
控件数组
摘要： 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 王云盼 阅读(454) 评论(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 王云盼 阅读(188) 评论(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 王云盼 阅读(629) 评论(0) 推荐(0) 编辑