Delphi Can

Orjinalini görmek için tıklayınız: [ÇÖZÜLDÜ] 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ı: [ -> ]@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 http://www.imagekit.com/resizekit2.html
denk gelmişti demosunu indirip denemiştim güzel çalışıyor
ama sizin işinizi çözer mi bilmiyorum isterseniz bir deneyin
Sayfalar: 1 2