Yeni form oluşturma..

[s1lv3r]

Eskiden visual basicte yapılıyordu çalışma anında butona bastığım anda içinde form olmadığı halde 0 dan form oluşturmak ve onun içine label ve buton bileşenlerini eklemek istiyorum nasıl yapabilirim

[Murat DİCLE]

Merhabalar..

Kod: Tümünü seç

With TForm.Create(Application) do
   begin
      Caption := 'Yeni Form';
      Left := 100;
      Top := 50;
      Width := 300;
      Height := 200;
      Showmodal;
      Free;
   end;

Bu şekilde bir oluşturabailirsin. Ama öncesinde bir form tutamacı ile yaparsan ilgili form üstüne istediğin bileşenleri eklemek daha da kolay olacaktır.

Şöyleki:

Kod: Tümünü seç

var F : TForm;
begin
   F := TForm.Create(Application);
   With F  do
      begin
         Caption := 'Yeni Form';
         Left := 100;
         Top := 50;
         Width := 300;
         Height := 200;
         with TLabel.Create(F) do
            begin
               Parent := F;
               Caption := 'Yeni etiket';
               Left := 10;
               Top := 50;
            end;
         Showmodal;
         Free;
      end;

Umarım faydalı olur..

Saygılar...