Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
9. Dez 2004
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure MyEditKeyPress(Sender: TObject; var Key: Char);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
8. Dez 2004
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 0 to length(EditArray) - 1 do
begin
EditArray := TEdit.Create(Form1);
EditArray.Parent := Form1;
EditArray.Name :='Edit'+IntToStr(i);
EditArray.Left := 10;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
8. Dez 2004
Entweder mit einem Array of TEdit oder in einer Schleife und dann mittels FindComponent draufzugreifen.