Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
[ÇÖZÜLDÜ] Program çözünürlüğü hk.
#11
(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.
“En uzun yolculuklar bile, tek bir adımla başlar.” Lao Tzu
Cevapla
#12
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
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  [ÇÖZÜLDÜ SOLVED] Fast Report Kontrollü Component Gizleme 3ddark 0 123 01-07-2020, Saat: 17:08
Son Yorum: 3ddark
  [ÇÖZÜLDÜ] Drag Drop Hatası wiseman 7 384 26-06-2020, Saat: 12:44
Son Yorum: wiseman
  TinyTask benzeri program denem3 4 263 26-06-2020, Saat: 11:27
Son Yorum: denem3
  [ÇÖZÜLDÜ] inno setup wiseman 2 581 21-06-2020, Saat: 12:45
Son Yorum: emozgun
  [ÇÖZÜLDÜ] Delphi Formül Hesaplamaları Hk. wiseman 13 837 16-06-2020, Saat: 11:51
Son Yorum: wiseman



Konuyu Okuyanlar: 1 Ziyaretçi