Buton'a tıklanınca yeni pencere

[mehmet987]

arkadaşlar ben bir butona tıklanınca yeni bir pencere açılmasını ve burada birkaç bilgi girilebilmesini sağlayan (edit eklenebilmeli) bir program yapmak istiyorum yardımcı olursanız sevinirim

[qamyoncu]

Yeni pencere açma kısmında sorun yoktur sanırım.
Çalışma sırasında nesne eklemek için aşağıdaki kodu yazabilirsiniz:

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:integer=0;
  Kendieditim: array[0..50] of Tedit;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
KendiEditim[i]:=TEdit.Create(Self);
KendiEditim[i].parent:=Self;
KendiEditim[i].top:=5+25*i;
KendiEditim[i].left:=5;      //Normal editlerin tüm özelliklerini taşır, çünkü yaratıldığı sınıf TEdit sınıfıdır. :)
KendiEditim[i].enabled:=true;
KendiEditim[i].show;
KendiEditim[i].text:='KendiEditim'+inttostr(i+1);
i:=i+1;
end;

end.

Yardımcı olması dileğim ile..

[mehmet987]

aradığım şey bu değil malesef
benim istediğim ana formun üzerindeki bir butona tıklanınca yeni bir pencere açılması yeni bir form gibi bir şey açılmasını istiyorum yardımlarınızı bekliyorum

[mehmet987]

sorunum çözüldü yeni bir form daha ekledim oldu ilgilenen arkadaşa teşekkürler

[qamyoncu]

Otomasyon programları hariç, birden çok form ile çalışmak bana hep hammallık gelir Bir panel ile, panelin border özellikleri ile oynayarak işlerimi hallediyorum genelde.. Bilginize Kolay gelsin