[ÇÖZÜLDÜ] Program çözünürlüğü hk.

[shooterman]

(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.

[Emrah Karagöz]

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