procedure TForm1.Erzeuge_Editfeld(iPositionLinks,
iPositionOben,
iBreite,
iEreignis_OnChange,
iEreignis_OnKeyPress :integer;
sKompName,
sKompLabel,
sKompText :
String;
bVerschiebbar,
bSichtbar,
bAktiv :boolean;
ParentForm :TWinControl);
begin
try
Edit_Array[AktuellesDynamischesEditfeld] := TEdit.Create(self);
with Edit_Array[AktuellesDynamischesEditfeld]
do
begin
Parent := ParentForm;
Name :='
Edit_'+sKompName;
Left := iPositionLinks+150;
Top := iPositionOben;
//OnChange Event
case iEreignis_OnChange
of
0: OnChange := Suchfeld_OnChange;
1: OnChange := Provider_OnChange;
else OnKeyPress :=
nil;
end;
//OnKeyPress Event
case iEreignis_OnKeyPress
of
0: OnKeyPress := Suchfeld_Integer_OnKeyPress;
1: OnKeyPress := Suchfeld_Float_OnKeyPress;
2: OnKeyPress := Suchfeld_AlphaNum_OnKeyPress;
else OnKeyPress :=
nil;
end;
OnMouseMove := Komponente_OnMouseMove;
Color := clWhite;
Text := sKompText;
Visible := bSichtbar;
Enabled := bAktiv;
Width := iBreite;
end;
//ListBox_DynFelder.AddItem(Name,Edit_Array[AktuellesDynamischesEditfeld]);
inc(AktuellesDynamischesEditfeld);
//Label zur Komponente erzeugen
Erzeuge_Label(iPositionLinks,iPositionOben,iBreite,sKompName,sKompLabel,true,true,true,ParentForm);
except
on E:
Exception do
begin
LogException( '
Erzeuge_Editfeld: ', E );
end;
end;
{try}
end;