Aynı formu tekrar oluşturma....

[i_zec]

Ben var olan bir formu takrar oluşturmayı soracaktım.Mesala butona basılınca benım asıl formum olan formdan ( yanı uzerında butonlar edıtler olan..) bir tane daha oluşturmak istiyorum bunu nasıl yapcam....

[ertug]

Yeni bir uygulama oluşturup, içerisine bir Button1 ve başka nesneler koyunuz. Button1'e çift tıklayıp aşağıdaki kodu yazınız.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm1.Create(Application) do
    Show;
end;

Kolay gelsin.

[i_zec]

cok saol.İşe yarıyor ama benım asıl istediğim yeni bir tane daha oluşturunca onunda bir önceki proje gibi görev çubuğuna eklenmesini istiyorum.yukarıdaki kod ile yeni açılan formu minimized ettiğimde nereye gidiyo kullanıcı anlayamz.
İyi çalışmalar.

[ertug]

Birşey değil. Bunun için:

Kod: Tümünü seç

  private
    { Private declarations }
    procedure CreateParams(var Params: TCreateParams); override;

Kod: Tümünü seç

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;

Bu bir çeşit "hack"tir. Yani delphi formu görev çubuğunda gizlemeye çalışırken siz göstermeye çalışıyorsunuz. Bu da sorunlara yol açabilir.

Yukarıdaki kod D6da, XP altında, görünen formlar için çalışıyor.

Kolay gelsin.

Eklenti:
Her yeni form eklediğinizde "Caption"ının yanına bir sayı verirseniz sanırım daha iyi olacaktır. Böylece görev çubuğunda birbirinin aynı birçok uygulama ismi olmaz.