DELPHİ KODLARI

DELPHİ KODLARI

Bugün sizlere Delphi programından bir kaç örnek göstereceğim..

ActiveControl

Forma bir TTimer nesnesi yerleştirin ve OnTimer durumunda Timer1Timer girin. Formdaki diğer kontrolleri yerleştirin ve çalışma zamanında aktif kontrol olarak değiştirin. Aşağıdaki olay işleyicisi doğru her 100 milisaniye aktif kontrol bir piksel hareket ettirerek çekim olaylarına yanıt verir.

Kod

 . prosedürü TForm1 Timer1Timer (Sender: TObject);
 başlamak
   . Zaman1 Aralığı: = 100;
   ActiveControl <> nil sonra eğer
     ActiveControl Sol:.. = ActiveControl + 1 Sol;
 sonunda;

ActivePage

Bu örnek için bir TPageControl'un  formda olması gerekir. Ayrıca, sağ tıklayıp Yeni Sayfa seçerek TPageControl sayfa eklemek gerekir. Örnek kod bir ComboBox öğesinin seçimi üzerinden ActivePage özelliğini seçmenize olanak sağlar. Şeklinde oluşturulur ise, Açılan Kutu kontrolü sekmelerin her bir isim, hem de ilgili sekmesine örnek işaretçiler ile yüklenir. Eğer Açılan Kutu öğe seçtiğinizde, Açılan Kutu Nesneler dizide yer alan ilgili TTabSheet nesne ActivePage özelliğini ayarlamak için kullanılır. Bir dize girmek için TRichEdit en Hatları özelliği seçin. Haklı önce dize seçin.

Kod

 prosedürü TForm1 FormCreate (Sender: TObject).;
 var
   i: Integer;
 const
   colorarray: Array [0 .. 4] TColor içinde = (
     clYellow, clGreen, clBlue, clLime, clFuchsia);
 başlamak
   . i: = 0 PageControl1 PageCount - 1 do
     başlamak
     ... PageControl1 Sayfa [i] Fırça Renk: = colorarray [i];
     ComboBox1. Öğeler. AddObject (PageControl1. Sayfa [i]. Adı,
       PageControl1 Sayfa [i]).;
     sonunda;
   . ComboBox1 ItemIndex: = 0;
   . PageControl1 ActivePage: = TTabSheet (. ComboBox1 Öğeler Nesneler [ComboBox1 ItemIndex.].);
 sonunda;
 
 prosedürü TForm1 ComboBox1Change (Sender: TObject).;
 başlamak
   (Sender TComboBox olan) daha sonra ise
     (TComboBox olarak Sender) yapmak ile
       . PageControl1 ActivePage: = TTabSheet (. Öğeler Nesneler [ItemIndex]);
 sonunda;

ActnMgrBar

Bu uygulama zaten formdaki bir TPopupActionBar bileşeni gerektirir. Uygulama bir eylem yöneticisi bileşeni oluşturur ve bazı özelliklerini bir görüntü listesine atar. Daha sonra, açılan eylem çubuğu özel ve formun PopupMenu özelliğine atanır. Sağ tıklıyorsunuz göstermek için formu tıklatın.

Kod

prosedürü TForm1 FormCreate (Sender: TObject).;
 var
   Resimler: TImageList;
   Resim: TBitmap;
   ActionManager: TActionManager;
   Seçenek 1, 2. seçenek: TMenuItem;
 başlamak
   / / Bir bilgi iletisi görüntülemek
   ShowMessage ('Sağ özelleştirilmiş açılır menüsünü görüntülemek için formu tıklayın');
 
   / / Bir görüntü listesi oluşturmak
   Görüntüler:. = TImageList oluşturun (serbest meslek);
   . Görüntüler Yükseklik: = 32;
   . Görüntüler Genişlik: = 32;
   denemek
     Resim:. = TBitmap oluşturun;
     . Resim Yüksekliği: = 32;
     . Resim Genişliği: = 32;
     ... Resim Tuval Font Adı: = 'Times New Roman';
     ... Resim Tuval Yazı Boyutu: = 22;
     .. Resim Tuval TextOut ((Resim Genişliği - Resim Tuval TextWidth ('1 ')) div 2, 0, '1'...);
     Görüntü Ekle (Resim, nil).;
   son olarak
     Görüntü Ücretsiz.;
   sonunda;
 
   / / Bir eylem yöneticisi oluşturmak ve özellikleri bazı görüntü listesi atamak
   ActionManager:. = TActionManager oluşturun (serbest meslek);
   ActionManager DisabledImages: = Görüntüler;.
   ActionManager LargeDisabledImages: = Görüntüler;.
   ActionManager LargeImages: = Görüntüler;.
 
   / / Açılan eylem çubuğu ile ilgili açılan menüden bazı öğeler eklemek
   Seçenek 1:. = TMenuItem oluşturun (serbest meslek);
   . Seçenek 1 Caption: = 'Yeni';
   . PopupActionBar1 Öğeler (Seçenek 1) ekleyin.;
 
   2. seçenek:. = TMenuItem oluşturun (serbest meslek);
   . 2. seçenek Caption: = 'Kaydet';
   . PopupActionBar1 Öğeler (2. seçenek) ekleyin.;
 
   / / Açılan eylem çubuğu formun tıklıyorsunuz olsun
   . Form1 PopupMenu: = PopupActionBar1;
 sonunda;

AddChildObjectFirst

Aşağıdaki örnek, ağaç görünümü kontrolü çocuk öğelerinde, seçili öğenin listesine yeni bir madde ekler. Yeni öğe alt öğeleri listesinde ilk eklenir. Yeni öğe metin 'Yeni Öğe' ile tanımlanır. TBitmap nesne yeni öğe eklenir.

Kod

 . prosedürü TForm1 Button1Click (Sender: TObject);
 var
   MyBitMap: TBitmap;
   Düğüm: TTreeNode;
 başlamak
   MyBitMap:. = TBitmap oluşturun;
   . MyBitMap LoadFromFile ('littleB.bmp');
   . TreeView1 Öğeler BeginUpdate.;
   düğüm:.. = TreeView1 Öğeler AddChildObjectFirst (
     TreeView1 Seçilen, 'Yeni Öğe', MyBitMap).;
 / / Node.ImageIndex: = -1;
   . TreeView1 Öğeler EndUpdate.;
 sonunda;