Demek istediğinizi şimdi örneğinizden yola çıkarak anladım.
Şimdi yapılanları adımlayarak yazayım, başlığı okuyanlar doğru anlasınlar, keza sizin örnek OrangeUI bileşenleri barındırıyor, temel paketlerde denemek her zaman en sağlıklısıdır.
Frame için
* Design Time zamanında Edit'lerin
TabOrder değerleri olarak sırasıyla 0,1,2 atamıştım.
Frame'deki bir butona altına
procedure Tframefrm.Button1Click(Sender: TObject);
begin
Edit1.Text := IntToStr(Edit1.TabOrder);
Edit2.Text := IntToStr(Edit2.TabOrder);
Edit3.Text := IntToStr(Edit3.TabOrder);
end;
RunTime'da ana formdan frame create işlemi şu şekilde.
procedure TForm1.Button1Click(Sender: TObject);
var
frm : Tframefrm;
begin
frm := Tframefrm.Create(self);
frm.Name := 'TEST';
frm.Parent := self;
frm.Position.X := 0;
frm.Position.Y := 0;
frm.Align := TAlignLayout.Client;
frm.Visible := True;
end;
Frame'de daha önceden belirlenen butona basınca bu değerler -1,-1,-1 olarak göründüler.
Ancak Edit1.Text içine "
TEST" şeklinde bir ifade koymuştum o değişmeden hayatına devam ederek kalmış.
Demek ki her şey transfer olmuyormuş bunu ben de öğrenmiş oldum. 10.3'ü de henüz dün kaldırmıştım, deneyemiyorum...
EKLEME :
Ekstra hepsine bakayım diyerek Frame üzerindeki button kodunu örnek sınırlarına kadar genişlettim.
procedure TFrame2.Button1Click(Sender: TObject);
begin
Application.MainForm.Caption := IntToStr(self.TabOrder);
Button1.Text := IntToStr(Button1.TabOrder);
Edit1.Text := IntToStr(Edit1.TabOrder);
Edit2.Text := IntToStr(Edit2.TabOrder);
Edit3.Text := IntToStr(Edit3.TabOrder);
end;
Burada button dahil -1 gelirken 4 olarak belirlediğim Frame TabOrder değeri doğru bir şekilde 4 olarak Caption'da göründü...
VCL tarafında her şey normal... Olmasını beklediğimiz gibi gelişti.
Edit 1, 2, 3 için TabOrder VCL tarafında otomatik sıralı üretildiğinden, farkı anlayayım diye tersten 3,2,1 olarak yeniden girdim. Bu detayı değerlendirerek inceleyebilirsiniz.
Sonuca varıyorum, sorun sadece FMX yakasında
