das ist aus meinem CqellCode:
Global:
Code:
const Anzahl = 57;
var
SpinEdit : array[1..Anzahl] of TSpinEdit;
CheckBox : array[1..Anzahl] of TCheckBox;
LabelFeld : array[1..Anzahl] of TLabel;
Procedure im Programm:
Code:
procedure Komponenten_erstellen;
var I : Byte;
begin
for I := 1 to Anzahl do
begin
SpinEdit[I] := TSpinEdit.Create(Application);
with SpinEdit[I] do
begin
Parent := TabControl1;
case I of
1 ..19 : begin
Left := 7;
Top := 45 + ((I - 1) * 25);
end;
20..38 : begin
Left := 270;
Top := 45 + ((I - 20) * 25);
end;
39..57 : begin
Left := 533;
Top := 45 + ((I - 39) * 25);
end;
end;
Width := 36;
AutoSize := False;
MaxValue := 99;
MaxLength := 2;
Name := 'SpinEdit' + IntToStr(I);
OnChange := SpinChange;
Tag := I;
end; // Ende von SpinEdit
CheckBox[I] := TCheckBox.Create(Application);
with CheckBox[I] do
begin
Parent := TabControl1;
case I of
1 ..19 : begin
Left := 48;
Top := 47 + ((I - 1) * 25);
end;
20..38 : begin
Left := 311;
Top := 47 + ((I - 20) * 25);
end;
39..57 : begin
Left := 574;
Top := 47 + ((I - 39) * 25);
end;
end;
Width := 165;
AutoSize := False;
Name := 'CheckBox' + IntToStr(I);
Caption := '';
ShowHint := True;
PopupMenu := PopupMenu1;
OnClick := CheckBoxClick;
OnContextPopup := CheckBox_Kontext;
Tag := I;
end; // Ende von CheckBox
LabelFeld[I] := TLabel.Create(Application);
with LabelFeld[I] do
begin
Parent := TabControl1;
case I of
1 ..19 : begin
Left := 216;
Top := 50 + ((I - 1) * 25);
end;
20..38 : begin
Left := 479;
Top := 50 + ((I - 20) * 25);
end;
39..57 : begin
Left := 742;
Top := 50 + ((I - 39) * 25);
end;
end;
Width := 42;
AutoSize := False;
Name := 'Label' + IntToStr(I);
Caption := '';
Alignment := taRightJustify;
end; // Ende von Label
end;
end; // Komponenten erstellen
den Quellcode hab ich aus meiner Einkaufsliste kopiert - was ich hier mit SpinEdit und CO mache, geht Problemlos auch mit TEdit .....
hoffe, es geht - bei mir geht es doch auch ....
