Delphi Can

Orjinalini görmek için tıklayınız: Program çözünürlüğü hk.
Şu anda (Arşiv) modunu görüntülemektesiniz. Orjinal Sürümü Görüntüle internal link
Sayfalar: 1 2
(12-07-2019, Saat: 10:34)adelphiforumz Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.@wiseman dün akşam can sıkıntısından işinize yarayabilecek bir basit örnek hazırladım
belki farklı bir fikir verebilir.

procedure TForm1.Pr_AddFormScroll;
var
 I : Integer;
 xObject: TObject;
 SBoxDinamik : TScrollBox;
begin
 SBoxDinamik := TScrollBox.Create(Self);
 SBoxDinamik.Parent := Self;
 SBoxDinamik.Name := 'SBoxDinamik';
 SBoxDinamik.Align := alClient;

 for i := 0 to (Self.ComponentCount - 1) do
 begin
   if Self.Components[i].Name = 'SBoxDinamik' then Continue;

   xObject := (Self.Components[i] as TObject);

   if Not Assigned(GetPropInfo(xObject, 'Visible')) Then Continue;
   if TControl(xObject).Parent = nil Then Continue;
   if TComponent(xObject).HasParent = False then Continue;
   if TControl(xObject).Parent.Name <> Self.Name Then Continue;

   TControl(xObject).Parent := SBoxDinamik;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Pr_AddFormScroll;
end;


Selamlar,
Hemen inceliyorum. ilginize teşekkür ederim.
Merhaba
Zamanında Şöyle bir Component Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
denk gelmişti demosunu indirip denemiştim güzel çalışıyor
ama sizin işinizi çözer mi bilmiyorum isterseniz bir deneyin
Sayfalar: 1 2