Hallo Zusammen,
ich habe ein kleines Problem mit der TAB Reihenfolge bei in Laufzeit erzeugten EDIT Boxen.
Ich plaziere mit Angabe von Reihe und Spalte Panels in einem Stringgrid. Auf diese Panels werden dann eine EditBox und ein Paar SpinButtons gesetzt.
Jetzt hüpft aber der Cusor bei TAB aber wie Wild hin und her, und hält sich nicht an die vorgegebene Reihenfolge.
Ich denke in habe mit dem Parent etwas falsch gemacht. Oder sieht jemand noch einen anderen Fehler?
Danke und Gruss.
Delphi-Quellcode:
{Panel malen}
NewPanel := TJvPanel.Create(self);
with NewPanel do begin
BoundsRect := AlignGrid.CellRect(myxdata[n].row,myxdata[n].col);
Width := intPanelWidth;
Height := intPanelHeight;
Parent := AlignGrid;
ParentBackground := true;
FlatBorder := true;
Tabs := strtoint(inttostr(myxdata[n].col*10)+inttostr(myxdata[n].row*10)) ;
TabOrder := tabs;
MyControls.add(NewPanel);
end;
{Edit malen}
NewEdit := TEdit.Create(NewPanel);
with NewEdit do begin
Top := EDITYPOS;
left := EDITxPOS;
Width := EDITWidth;
Height := EDITHeight;
Parent := NewPanel;
ActiveColor := $00FEEFDD;
showhint := true;
roundit := mydata[n].step;
doformatValue := true;
Editlabel.Caption := myxdata[n].caption;
midpoint := calcmidpoint(minvalue,maxvalue,roundit);
text := '';
OnOutOfRange := MyOutOfRange;
Dbid := mydata[n].id;
MyControls.add(NewEdit);
end;