Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

Delphi Prog.'a Popup reklamla açılış # KAYNAK #

Konu, 'Pascal / Delphi / Delphi.NET' kısmında hmustak tarafından paylaşıldı.

  1. hmustak

    hmustak PersianBulls

    Kayıt:
    29 Mayıs 2002
    Mesajlar:
    4,607
    Beğenilen Mesajlar:
    0
    Meslek:
    BT/QA
    Şehir:
    Persian
    Delphi için güzel kısayol teknikleri yazıyoruz ama inşallah işinize yarıyordur :=)

    Program açılmadan tasarladığınız bir formun ilk olarak görünmesini isterseniz (Bu form Unit dosyasıdır - html diildir), önce
    File/ New Form
    seçeneği ile Projeye bir form ekleriz. Daha sonra eklediğimiz formu (ben form2 diyeceğim),
    Project / Options dan Forms sekmesi altında Available kısmına tutup sürükleyeceğiz.
    Project / View source kaynağımız şöyle olacak ;



    program cevizornek7;

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

    {$R *.RES}


    begin
    form2:=TForm2.Create(nil);
    form2.show;
    Application.ProcessMessages;

    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TForm3, Form3);
    sleep(4500); {beklemeyi sağlayacak olan kod...}
    form2.Hide;
    form2.Release;

    Application.Run;
    end.




    unutmadan... Resimle filan açılış yapacaksanız tasarlanan formunda formunda onShow event kısmına

    form2.Brush.Style:=bsClear;
    Form8.BorderStyle:=bsNone;

    eklerseniz resmin(veya nesnenim) dışında kalan herşey transparent olur. Görünmez. Bu metodlar açısından kolaylık sağlayacak bi ipucu daha vereyim, CTRL + SPACE tuşları ile form nesne ve metodlarınıza ulaşabilir, CTRL + J ile ise sistem metod ve yapılarına ulaşabilirsiniz. Tabi bunlara kendiniz de ek yapabilirsiniz...

    Offf yoruldum... Eee ben bu kadar yazdım, birilerinin işine yara umarım, şimdi yorumları bekliyorum :=))))))

    th4nx -je -jne


    -ne varsa ASM'de var...
     
  2. mkarabulut

    mkarabulut Misafir

    Ya abi o kadar yazmışsın, yorum yazamamaktan içim gidiyor, ama napalım delfi ile aramız yok :)

    Neyse heralde iyi bi şeydir, yazdığına göre...

    Bu arada ASM ile Assembly mi kastettin ? Yok heralde böyle bi hata yapmamışsındır :D

    Kolay gele...
     
  3. hmustak

    hmustak PersianBulls

    Kayıt:
    29 Mayıs 2002
    Mesajlar:
    4,607
    Beğenilen Mesajlar:
    0
    Meslek:
    BT/QA
    Şehir:
    Persian
    Assambler ewet :D
    Hayati hata, ve bi okadar da gerçek :D:D :sus:

    Th4nx -je -jne
     
  4. farukcalikusu

    farukcalikusu Üye

    Kayıt:
    27 Kasım 2002
    Mesajlar:
    95
    Beğenilen Mesajlar:
    0
    Hocam bahsettiğin konuyla alakalı değişik bir yöntem daha var ilerliyen günlerde bende o yöndeti burdan paylaşmayı düşünüyorum
     
  5. hmustak

    hmustak PersianBulls

    Kayıt:
    29 Mayıs 2002
    Mesajlar:
    4,607
    Beğenilen Mesajlar:
    0
    Meslek:
    BT/QA
    Şehir:
    Persian
    1 yöntemmi? birkaç yöntem var. brini yazdığım için ikincisin yazmamıştım, yazmayı planlama, bi fiil yaz :) tabi başka şeylerde. İstersen bendekini bi göndereyim sana, incele...

    e tabi, APS veya Kargo ile geç ulaşacağından bi mail adresi gerek :)

    Kolay gelsin
     
  6. Caylaq

    Caylaq Daimi Üye

    Kayıt:
    11 Aralık 2007
    Mesajlar:
    1,145
    Beğenilen Mesajlar:
    0
    Meslek:
    Product Development Specialist
    Şehir:
    DELPHI LAND




    Güzeldi @mkarabulut Hocam :D:D:D












    .
     
  7. hmustak

    hmustak PersianBulls

    Kayıt:
    29 Mayıs 2002
    Mesajlar:
    4,607
    Beğenilen Mesajlar:
    0
    Meslek:
    BT/QA
    Şehir:
    Persian
    konu 2002 nin konusu mu? :D
     
  8. Caylaq

    Caylaq Daimi Üye

    Kayıt:
    11 Aralık 2007
    Mesajlar:
    1,145
    Beğenilen Mesajlar:
    0
    Meslek:
    Product Development Specialist
    Şehir:
    DELPHI LAND
    Hocam evet farkındayım

    Ben Pekiştirme yapıyorum :)












    .