Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama C++ Builder Active Formlar İle Çalışma


Active Formlar İle Çalışma

AÇIKLAMA

C++ Builder 6 ile uyumludur.Bu programda Active Form ile nasıl çalışıldığına dair bir örnek üzerinde durulmuştur. Örnekte iki formdan oluşan programda 1.Form da bulunan butona tıklandığında 2.Form açılmakta bu sırada Active olan form 2.Form olmaktadır ve aktive olmayan 1.Form beyaz renk ile boyanmaktadır. Eğer 1.Form bu sırada tıklanırsa 2.Form deaktif olacağından beyaz renge ile boyanacak 1.Form tekrar tasarım rengine dönecektir. Sonuç olarak aktif olan yani ekranda en önde bulunan form (active form) kendi tasarım renginde olacak diğer form beyaz renk ile boyanacaktır. Ufak bir hatırlatma programı derleme aşamasında çalıştırırsanız programın kapanması sırasında hata alabilirsiniz. Programı yazdıktan sonra sadece derleme esnasında üretilen exe dosyası üzerinden derleyici yardımı olmadan çalıştırınız.

Programın Tamamını Aşağıdaki Linkten İndirebilirsiniz

Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt

Program Kodu:

Unit1.cpp

  1. //---------------------------------------------------------------------------
  2.  
  3. #include <vcl.h>
  4. #pragma hdrstop
  5.  
  6. #include "Unit1.h"
  7. #include "Unit2.h"
  8. //---------------------------------------------------------------------------
  9. #pragma package(smart_init)
  10. #pragma resource "*.dfm"
  11. TForm1 *Form1;
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm1::TForm1(TComponent* Owner)
  14.         : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  18.  
  19. void __fastcall TForm1::Button1Click(TObject *Sender)
  20. {
  21. Form2->Show();
  22. }
  23. //---------------------------------------------------------------------------
  24. void __fastcall TForm1::ColorForm(TObject *Sender)
  25. {
  26.   Color = clWhite;
  27.   Form2->Color = clWhite;
  28.   Screen->ActiveForm->Color = clAqua;
  29. }
  30. //---------------------------------------------------------------------------
  31. void __fastcall TForm1::FormCreate(TObject *Sender)
  32. {
  33. Screen->OnActiveFormChange=ColorForm;
  34. }
  35. //---------------------------------------------------------------------------
  36.  
  37.  
  38.  
  39. void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
  40. {
  41. Action=caFree;       
  42. }
  43. //---------------------------------------------------------------------------
  44.  
  45.  
  46.  
Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Çarşamba, 12 Eylül 2012 19:35 )