Form Yapıştırma
procedure TForm2.FormShow(Sender: TObject);
begin
Form3.SetBounds(2,2,Panel1.Width-4,Panel1.Height-4);
Form3.Show;
end;
--
procedure TForm3.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or WS_CHILD;
Params.Style := WS_CHILD;
Params.WndParent := Form2.Panel1.Handle;
end;
(*
-----------------------------------------------------------------------
Şükrü Kansız
GEBİTEK (Gelişmiş Bilişim Teknolojileri)
Bilgisayar Programcısı - Proje Koordinatörü
sukruk@gebitek.com / www.gebitek.com
Tel: +90(212) 225 84 77 Fax: +90(212) 225 84 76
-----------------------------------------------------------------------
*)