Root > Documents > Web Güvenlik Açıkları > Delphi kontrol elemanlar - 1
Cyber-Warrior.Org \ Doküman \ Web Güvenlik Açıkları > Delphi kontrol elemanlar - 1
Madde
  Yazar : CWSmacher
  Date : 16.10.2012 14:18:51
 
# Delphi kontrol elemanlar - 1
 

Cw Group of Documents TIM

 

Delphi Kontrol Elemanlari (Gruplandirilmis)

 

1-) Metin Girisini Saglayan Kontrol Elemanlari ve Label Nesnesi

 

Kontrol Adi       Bulundugu Grup      Görevi

TEdit                         Standart             Bilgi girisi

TLabeledEdit             Additional          Etiketli bilgi girisi

TMemo                     Standart             Bilgi girisi (Çok satirli)

TRichEdit                  Win32                RTF formatinda metin girisi için

TMaskEdit                 Additional          Maskeli bilgi girisi

 

 

A-) TEdit : (Metin Kutusu)

 

……

 

B-) TLabeledEdit : (Etiketli Metin Kutusu)

 

Genel kullanimlarinda metin kutulari kendilerini açiklayan bir Label ile birlikte kullanilirlar. Bunun gibi iki ayri kontrol kullanmak yerine, hem Label hem de Edit’ten olusan LabeledEdit nesnesi kullanilabilir.

 

Özellikler:

 

LabelPosition:

 

Label’in metin kutusunun hangi tarafina yerlestirilecegini belirler.

lpAbove: Edit kutusunun üzerine  (LabeledEdit2.LabelPosition:=lpAbove;)

lpBelow: Edit kutusunun altina     (LabeledEdit2.LabelPosition:=lpbelow;)

lpLeft:     Edit kutusunun soluna   (LabeledEdit2.LabelPosition:=lpLeft;)

lpright:    Edit kutusunun sagina   (LabeledEdit2.LabelPosition:=lpRight;)

 

LabelSpacing:

 

Label’in metin kutusuna olan uzakligini belirler.

 

LabeledEdit2.LabelSpacing:=10;

 

Text:

 

LabeledEdit nesnesindeki metin kutusundaki yaziyi ifade eder.

 

LabeledEdit1.Text:=’Deneme’;

a:=StrToInt(LabeledEdit2.Text);

 

EditLabel:

 

Object Inspector de LabeledEdit nesnesindeki label’a ait bütün özelliklerin belirlendigi alandir.

Bu özellikler kodlarla degistirilmek istenirse;

 

LabeledEdit2.EditLabel.Font.Color:=cl3DLight;

LabeledEdit2.EditLabel.Enabled:=False;

 

C-) TMemo:  (Çok Satirli Bilgi Giris Kutusu)

 

Edit nesnesine alternatif olan bu nesne, edit nesnesinin yapabildigi her seyi yapabilmekte ayrica edit nesnesinin yapamadigi çok satir bilgi girisi, dosyadan Text yükleme ve kaydetme gibi islemleri de yapabilmektedir.

 

Özellikler:

 

Alignment:

 

Memo içindeki metnin saga, sola ve ortaya  yerlestirilmesini saglar.

 

Memo1.Alignment:=taLeftJustify;

Memo1.Alignment:=taRightJustify;

Memo1.Alignment:=taCenter;

 

Lines:

 

Memo içindeki satirlari ifade eder. Bu özellikle Memo nesnesine satir eklenecegi gibi, mevcut satirlardaki metinlerde alinabilir ayrica dosyadan yükleme ve kaydetmede yapilabilir.

 

Lines.Count

 

Memo içerisinde kaç satirdan olustugunu bildirir.

 

showmessage(IntToStr(Memo1.Lines.Count));

 

Lines.Strings[SatirNo] :

 

Memo içerisinde verilen satir numarasi içerisindeki satiri görmeye ve degistirmeye yarar. Ilk satir numarasi 0 ile baslar.

 

Memo1.Lines[1] ve Memo1.Lines.Strings[5] ayni isi yapmaktadir…

 

ShowMessage(Memo1.Lines[1]);                 //2. satiri gösterir

ShowMessage(Memo1.Lines.Strings[5]);    //6. satiri gösterir

 

Lines.Add

 

Memo nesnesinin sonuna satir eklenebilir.

 

Memo1.Lines.Add(’deneme’);

 

Insert(SatirNo,Ifade)

 

Add metodu ile Memo nesnesinin sonuna ekleme yapilabiliyordu, Insert metodu ile Memo nesnesinde belirtilen satira ifade eklemesi yapabilir.

 

Memo1.Lines.Insert(3,’Deneme’);   // 4. satir olarak “Deneme” ifadesi eklenecektir.

 

Lines.Assign:

 

Memo nesnesinin içerigini 2. bir Memo nesnesinin içerigine esitler.

 

Memo1.Lines.Assign(Memo2.Lines) ve  Memo1.Lines:=Memo2.Lines ifadeleri ayni isi yapar.

 

Memo1.Lines.Assign(Memo2.Lines);  //Memo2 nin içerigini Memo1 e esitler.

Memo1.Lines:=Memo2.Lines;              //Memo2 nin içerigini Memo1 e esitler.

 

Lines.Values[Anahtar Kelime]

 

Memo nesnesi içerisinde verilen anahtar kelime karsisindaki deger alinir.

 

ShowMessage(Memo1.Lines.Values[’sifre’]);

 

(Memo1 nesnesi içerisinde sifre kelimesi karsisindaki ifadeyi gösterir.)

 

Lines.Exchange(Satir 1, Satir 2)

 

Belirtilen satirlarin yer degistirilmesi saglanir.

 

Memo1.Lines.Exchange(1,2);   //2. satir ile 1. satirin yerini degistirir.

 

Lines.Move(Index,YeniIndex)

 

Index ile verilen satiri YeniIndex ile verilen satira tasir.

 

Memo1.Lines.Move(1,4);  //2. satiri 5. satira tasir.

 

Lines.IndexOf(Ifade)

 

Verilen ifadenin kaçinci satirda oldugunu verir.

 

Edit1.Text:=inttostr(Memo1.Lines.IndexOf(’Tofas’));,

 

Lines.LoadFromFile(’DosyaAdi’)

 

Verilen dosyayi Memo nesnesine yükler.

 

Memo1.Lines.LoadFromFile(’c:\\\\\\q.txt’);

 

 

Lines.SaveToFile(‘DosyaAdi’)

Memo nesnesi içerisindeki metni dosya adi verilen dosyaya kaydeder.

 

Memo1.Lines.SaveToFile(’c:\\\\\\q.txt’);

 

WantReturns

 

Bu özellik True ise Memo nesnesinde Enter tusuna basildiginda kursör bir alt satira geçer, False ise Ctrl+Enter tus takimini kullanmak gerekir.

 

Not: Form üzerinde Default özeligi True yapilmis bir komut dügmesi (Button) varsa Formun herhangi bir yerinde Enter tusuna basildiginda o komut dügmesi aktif hale gelir.

Memo nenesinde WantReturns özelligi True yapilirsa Default özelligi True olan Button dügmesi Enter tusunu algilayamayacaktir.

 

WantTabs:

 

Bu özellik True yapilirsa Tab tusuna basildiginda nesneler arasinda geçis özelligi kapatilip, Memo içerisinde kursörün bulundugu noktadan itibaren belirtilen karakter kadar bosluk yazilir.

Bu özellik False olursa Tab tusuna basildiginda Form üzerindeki nesneler arasinda geçis yapilacaktir.

 

WordWrap:

 

Bu özellik True yapilirsa Memo nesnesinde bir satir doldugu zaman otomatik bir alt satir asagi geçilir ve yazinin tamami ekranda görünmesi saglanir.

Bu özelligin False olmasi durumunda ise Memo nesnesinde yazi ayni satirda Enter tusuna basincaya kadar devam eder.

 

ScrollBars:

 

Memo nesnesinin kaydirma çubugu içerip içermeyecegini belirler.

 

 

D-) TRichEdit (RTF Format Destekli Metin Giris Kutusu)

 

RTF (Rich Text Format) formatinda disardan bilgi girisi yapabilen veya RTF formatinda kayitli mevcut bilgileri gösterebilen Win32 bilesen paletinde bulunan bir nesnedir.

 

Özellikler:

 

Lines:

 

Memo kontrolünde kullanildigi gibidir. Farkli olarak RTF formatinda dosya kaydedip/açabilir.

 

PlainText:

 

True ise TXT, False ise RTF formatinda dosya kaydeder.

 

SellAttributes:

 

RichEdit nesnesinde farkli kisimlarda farkli font stillerini uygulayabilmek için bu özellik kullanilir.

Nesne içerisinde seçili alanda degisiklikler yapmak için;

 

FontDialog1.Execute; //Dialog bilesen paletinden FontDialog nenesi eklenmis olmalidir.

RichEdit1.SelAttributes.Assign(FontDialog1.Font);

 

Seçili alanda belirlenen degisiklikleri uygular.

 

Paragraph:

 

Paragraflara degisik stiller uygulamak için kullanilir.

 

Paragraph.Alignment:

 

RichEdit içerisinde seçili olan paragrafi farkli yönlere hizalamak için kullanilir.

 

RichEdit1.Paragraph.Alignment:=taRightJustify;

RichEdit1.Paragraph.Alignment:=taLeftJustify;

RichEdit1.Paragraph.Alignment:=taCenter;

 

Paragraph.FirstIndent, Paragraph.LeftIndent, Paragraph.RightIndent:

 

RichEdit1.Paragraph.FirstIndent:=5;

(Paragrafin ilk satirinin basliyacagi noktayi belirler.)

 

RichEdit1.Paragraph.LeftIndent:=10;

(Paragrafin ilk satiri hariç diger satirlarinin basliyacagi noktayi belirler.)

 

RichEdit1.Paragraph.RightIndent:=15;

(Paragrafin satirlarinin sag taraftan bitecegi noktayi belirler.)

 

Paragraph.Numbering:

 

RichEdit1.Paragraph.Numbering:=nsBullet;

(Seçili metin üzerine madde imleri yerlestirir.)

 

RichEdit1.Paragraph.Numbering:=nsNone;

(Var olan madde imlerini kapatir.)

 

HideScrollBars:

 

True verilirse kaydirma çubuklari kontrol aktif degilken görüntülenmez.

 

Metodlar:

 

Print(Baslik):

 

Nesnenin içerigini yaziciya gönderir. Baslik parametresi ile de yaziciya gönderilen dokümanin yazdirma yöneticisinde hangi isimle gözükecegini belirler.

 

 FindText(Aranan, Baslangiç, Uzunluk, Options);

 

Bu metod kullanimi ile RichEdit nesnesi içerisinde metin arattirilabilir.

 

 

Aranan parametresi: Aranacak metin

Baslangiç parametresi : Aramaya baslanacak konum

Uzunluk parametresi: Aranacak kisim

Options parametresi: Arama isleminin özellikleri (stWholeWord: Büyük küçük harf ayrimi yapilmaz, stMatchCase: büyük küçük harf ayrimi yapilir.)

 

Bu fonksiyondan bulunan ifadenin baslangiç pozisyonu döner,  eger aranan metin bulunamasa -1 degeri geri döner.

 

showmessage(inttostr(RichEdit1.FindText(’hamit’,RichEdit1.SelStart,RichEdit1.SelLength,[stWholeWord])));

 

(ali kelimesini, RichEdit nesnesinde seçilen metnin baslangiç noktasindan itibaren  seçili alan sonuna kadar büyük küçük ayrimi yapmadan arar.)

 

E-) TMaskEdit (Formatli Bilgi Giris Kutusu)

 

Bu nesne disardan özel bir düzende (formatli) bilgi girisini saglar.

 

Özellikler:

 

Tasarim aninda kullanilan karakterlerin anlamlari:

 

>    Sonraki karakterleri büyültür.

<    Sonraki karakterleri küçültür.

<>  Herhangi bir degisim uygulanmaz.

\\\\\\     Özel karakterleri göstermek için kullanilir.

L    Sadece harf girilebilir, girilmesi mecburidir.

|     Sadece harf girilebilir, girilmesi mecburi degildir.

A   Sadece harf ve rakam girilebilir. Girilmesi mecburidir.

a    Sadece harf ve rakam girilebilir. Girilmesi mecburi degildir.

C   Herhangi bir karakter girilebilir. Girilmesi mecburidir.

c    Herhangi bir karakter girilebilir. Girilmesi mecburi degildir.

0    Sadece rakam girilebilir. Girilmesi mecburidir.

9    Sadece rakam girilebilir. Girilmesi mecburi degildir.

:     Zaman ayiricisi olarak kullanilir.

/     Tarih ayiricisi olarak kullanilir.

;      Birden fazla maske için araya konulur.

 

MaskEdit1.EditMask:=’!99->L<LL-9999’;   (12-May-2004)

MaskEdit1.EditMask:=’!99/99/9999’;           (12/05/2004)

 

IsMasked:

 

MaskEdit nesnesinde giris maskesi olup olmadigini gösterir. Maske varsa -1 mske yoksa 0 degerini gönderir.

 

ShowMessage(BoolToStr(MaskEdit1.IsMasked));

 

EditText, Text, EditMask:

 

Maskede belirtilen fakat kullanicinin girmedigi karakterler _ ile gösterilir.

 

MaskEdit1.EditMask:=’aaaaaaa’;

MaskEdit1 seklinde tanimlansin. Kullanici MaskEdit nesnesine söyle bir metin girsin, ---xy--

 

Sonuç:

 

ShowMessage(MaskEdit1.Text);                  xy 

ShowMessage(MaskEdit1.EditText);         ‘---xy--’

ShowMessage(MaskEdit1.EditMask);        ‘aaaaaaa’

 

Seklinde olacaktir.

 

F-) TLabel (Etiket)

 

Form üzeinde açiklama yapmak veya baska bir kontrolün ne ise yardigini belirtmek için kullanilir.

 

Özellikler:

 

Caption:

 

Bu özellik Label in içindeki yazili olan metni ifade eder.

 

Label1.Caption:=’Adinizi Giriniz’;

 

ShowAccelChar:

 

Bu özellik True yapilirsa & karakterinin önündeki karaktere kisayol atak için kullanilacagini beliler.

 

Label1.Caption:=’&Adi Giriniz’;Label1.ShowAcelchar:=True;  ise     Adi Giriniz

 

Label1.Caption:=’&Adi Giriniz’;Label1.ShowAcelchar:=False;  ise    &Adi Giriniz

 

FocusControl:

 

Label nesnelere açiklama yazmak için kullanildigindan kisayol tusunun belirtilen nesneye kontrolü vermesi istenir.

 

Label1.FocusControl:=Button1;  Label in kisayolu tuslandiginda kontrolü Button1 e verir.

 

AutoSize:

 

Bu özellik True olursa Label in boyutlari içindeki yaziya göre yeniden boyutlanir.

 

Aligment:

 

Yazinin konumunu yatayda ayarlar.

(Yaziyi saga, sola yada ortaya alir. )

 

Layout:

 

Yazini konumunu dikeyde ayarlar.

(Yaziyi alta, üste yada ortada alir.)

 

WordWrap:

 

Label içerisindeki ifade Labelin boyutlarini asarsa bir alt satira geçer. Eger yazi Label ‘in boyutlarina ulastigi halde kelime bitmemeisse Label in boyutlari kelimenin bittigi yere kadar uzar. (AutoSize true olmali)

 

ÖZEL BILGI GIRIS KONTROLLERI

 

TScrollBar

TTrackBar

TUpDown

THotkey

TSpinEdit

TSpinButton

 

BUTONLAR ve BENZER KONTROLLER

 

TButton

TBitBtn

TSpeedButton

TRadioButton

TCheckBox

 

VERITABANI

 

ADODataSet

 

 

TEORIK

 

Degiskenler, Procedure, Fonksiyon …

   
   
Cyber-Warrior TIM All Legal and illegal Rights Reserved.\CWDoktoray 2001©