1 2 3 4 5 6 7 8 ..............................31
a
b
c
d
e
f
sayıların altında edit var
sıkıntım satır satır yaptıgım için hepsini bir panele oturtum ben tab la ilerlemek istedigimde F in en sonundan baslamakta ve basa dogru gitmekte .. olustururken bileşenlerin tam tersi bir dongu yaparak
Kod: Tümünü seç
quOrder.Open;
quOrder.First;
orderNo:=1000;
//OrderPnl:=0 ;
sa:= DaysInAMonth(StrToInt(Pyil),StrToInt(Pay));
For j:=0 TO quOrder.RecordCount-1 do Begin
OrderPnl:=OrderPnl+1;
for i:=1 TO sa do Begin
orderNo:=orderNo+1;
TEdit(frmnewistisna.findcomponent(quOrderistisnaKod.Text+'edit'+inttostr(i))).TabOrder:=orderNo;
end;
Kod: Tümünü seç
for i:=1 To Sayi Do Begin
Pnl:=TbsSkinPanel.Create(Self);
Pnl.Name:=quPuantajTabloistisnaKod.Text;
pnl.TabStop:=True;
pnl.TabOrder:=sayi-i;
ShowMessage(Pnl.Name +' '+IntToStr(pnl.TabOrder));