form

[selman]

şimdi benim projemde bir anaform var bu forma da bağlı form2 var.anaformu minimize ettiğimiz zaman form2 gitmesin

[aslangeri]

S.A.
anaformu minimize ettiğin zaman uygulamanı minimize etmiş oluyorsun. buda tüm açık formların minimize olması demek. Eğer form2 yi gösterdiğin zaman ana formun görünmesini istemiyorsan form2yi show ettiğini yerde ana formu hide edersin. form2 nin kapanışınada ana formu show edersin.
Kolay gelsin.

[husonet]

MainForm yani ana Form Form1 olduğu için bunu yapması doğaldır.

Kolay Gelsin...

[selman]

Abi ben şunu demek istedim ana formu kapattım ve tekrar açtığımda form2 de form ile beraber açılması

[aslangeri]

S.A.
anaformun kapanışında inidosyasın, registere, yada herhengi bir dosyaya açık olan formları yaz.
Ana form tekrar açıldığı zaman bu dosyayı oku ve ona göre formları çağır.
Kolay gelsin.

[selman]

aslangeri abi odediğiniz olayı bilmiyorum lütfen yardım ederseniz sevinirim

[selman]

bir düzeltme yapmak istiyorum
Konu yanlış anlaşılmasın
Şimdi ben proğramı açtım karşıma anaform geldi
ve anaformdan Müşteri işlemleri adında 2.formumu açtım
kullanıcı anaformdan proğramı minimize etti.
Ve masaüstünde işlemleri yaptı tekrar benim proğramı açtığında hem anaformum açılacak hem demüşteri işlemleri adı altında 2.formum açılacak hepinize iyi çalışmalr

[aslangeri]

S.A.
inifile ve registry kullanma ile ilgili aratırsan forumda eminimiki yeterli açıklamayı bulacaksındır.
form2.nin üzerine birtane memo koy ve visiblesini false yap.
form2 nin onshow olayında

Kod: Tümünü seç

 memo1.lines.savetofile('c:\Form2show'');

gene form2 nin onclose olayına

Kod: Tümünü seç

if FileExists('C:\Form2show') then deletefile('C:\Form2show');

ana formun onshowunda ise

Kod: Tümünü seç

if FileExists('C:\Form2show') then
begin
  if form2=nil then application.createform(TForm2,Form2);
  form2.show;
  form2.bringtofront;
end;

Not: bu kodlar çok sağlıklı (kullanışlı) değil kulağı tersten göstermek gibi bişey sadece yol göstermesi açısından yazdım. ini ve registeri kullanarak daha güzel bi şeyler ortaya çıkarabileceğinden eminim.
İyi çalışmalar Kolay Gelsin.
/////////////////////////////////
o zaman bende düzeltiyim binaenaleyh yanlış anlamışım.
Application ondeactive ve onactive eventleri ile bu işlemi yapabilrisin. ama
birden fazla pencere açıksa bilemiyorum. application.onactive eventinde

Kod: Tümünü seç

 if form2<>nil then
if form2.showing then form2.bringtofront;

gibi bişey sanırım işini görür.
Tekrar iyi çalışmalar kolay gelsin.

[selman]

[codeif form2<>nil then
if form2.showing then form2.bringtofront;]
aslangeri hocam bu kodla işimi göremedim. Bu sefer ana form hiç minimize olmuyor[/code]

[husonet]

Olay biraz Dallanmış ama konuyu ben şu şekilde özetlemek istiyorum.

İstiyorsak AnaForm'u bağımsız yapabiliriz yani anaform'uda minimize ettiğimizde diğer forum lar ekran da kalabilir peki nasıl yapabiliriz bunu?

Öncelikle
Menuden Project i seçelim ardında options'u karşımıza çıkan pencereden Auto-Creats Forms sekmesinde göedüğümüz Form ları Available Forms sekmesine gönderelim bakın hepsini gönderiyoruz. Auto-Creats Forms kısmında hiç bir şey kalmayacak

Ardından Penceremizi okey diyip kapatalım.

Sonraki adımda Menuden Project -> View Source i tıklayalım. Ve Programızın ilk devreye giren kodları karşımıza gelecektir.

Kod: Tümünü seç

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}
var
    f1:TForm1;
begin
    Try
        F1 := Tform1.Create(Application);
        F1.ShowModal;
    Finally
        F1.Free;
    End;
end.

Yukarıda verdiğim şekilde düzenlersen hangi Forum'u minimize edersen et diğer Forumlar ekranda kalacaktır.

Kolay Gelsin...

[aslangeri]

@Selman kardeş o kodu nereye yazdın?