EDİTİN ONEXIT OLAYI
Odak nesneden ayrıldığı zaman o nesnenin onExit olayı meydana gelir.
Var
Sayi,kod:integer;
Begin
Val(edit1.text,sayi,kod);
If kod<>0 then
Begin
Edit1.setfocus;
Label6.caption:=inttostr(kod);
MessageDlg('giriş hatalı',mtError,[mbOK];
End;
End;
End;

Sayı girildikçe her edit dosayasına geçişi sağlıyor.

Yanı kodu edit1 in OnChange yazdığımız zaman (karakter girdiğimiz zaman)hata veriyor.

RichEdit1:sadece seçili alanlar için özellik ayarlar.
Memo1:hepsi birden değişir(özelliklerinin)

[] olan özellikler küme tipi özelliklerdir
+:bir kümeye eleman ekler.
-:bir kümeden eleman siler.
Style :[];
Style:=[fsBold,fsItalik]
Style:=style+[fsunderline];
Style:=style-[fsbold];

Eğer memo1 deki yazı hem italikihem bold olacaksa ayrıca tıklandığındabold özelliği kalkacak
KOD
CHECKBOX
If checkbox1.checked then
Memo1.fontstyle:=memo1.fontstyle+[fsbold];
Else
Memo1.font.style:=memo1.font:style-[fsbold];
End;
RADIO BUTTON
Begin
Memo1.fontname:=radiobuton1.caption;
End

Label1.caption:=inttostr(radiogroup1.ItemIndex);

CASE OF DEĞİMİ
Case radioGroup1.ItemIndex of
0
memo1.aligment:=toleftjustfy;
1
memo1.aligment:=torightjustfy;
2
memo1.aligment:=tocenter;
end

ÖDEV

Fist object position second object

RadioGroup1.Items[RadioGroup1.ItemIndex]

ONKEYPRESS

Odak bir nesne üzerindeyken klavyeden bir tuşa basılınca meydana gelen olay Editii onkeypress olayıdır.
Var(edit1 de sadece rakamları alıyor)
Key:char
Begin
If not((key in ["0".."y",#8]) then
Begin
Key:=#0;
Beep
End
End;
Eğer 9 değer girildiği zaman edit 4'e karakter yazamıyoruz
Program 0'dan büyük harf olmak koşuluyla Y'e kadar değergirebiliriz.
MASKEDIT(Additional altında 3.button)
Editmask özelliğiçift tıklaextensionok
Kaç haneli rakam girileceğini belirtiyor.
ÖDEV
Adınızı giriniz(küçük) OnKeypress özelliği

Soyadınızı girin(büyük)

Aksi taktirde klavye yazmıyacak.
PROGRAM
Var
Key:char;
Begin
Key:=#0;
End;
End;
Var
Key:char;
Begin
If not(key in ['A'..'Y',#8]) then
Begin
Key:=#0;
End;
End;

Var
I,sc,sn,sk,b,sv:integer;
Begin
Sc:=0;
Sn:=0;
Skb:=0;
Sv:=0;
For i:=1 to lenght(edit1.text) do
If edit1.text[i]='?' then
Sc:=sc+1;
Else
If edit1.text[i]='.' Then
Begin
Sc:=sc+1;
Sn:=sn+1;
End
End;
Else

SHOWMESSAGE
('cümle sayısı'+inttostr(sc)+#13+'nokta sayısı'+inttostr(sn)+#13+'kelime sayısı' inttostr(skb+1)+#13+'boşluk sayısı'+intostr(skb+#13+'virgül sayısı+inttostr(sv));

Begin
Dlgrenk_kutusu.execute
Label1.color:=Dlgrenk_kutusu
End;
SORU1
Zeminin OnClik
Begin
Dlgrenk_kutusu.color
End;
F9 run ediliyor

--------------------------------------------------------
begin
Dlgrenk_kutusu.execute
Label1.color:=Dlgrenk_kutusu.color;
Label2.color:=Dlgrenk_kutusu.color;
Button1.caption:=Dlgrenk_kutusu.color
End;
F9 run ediliyor
cvp:Button1 color özelliği yok

Var
Key:char;
(program çalışmıyor eğer kullanılmıyorsa)
begin
key:=#0;
.
.
.
.
soru3)
if kod<>0 (<>0 :hatalı kod(integer mi))
(<>0 doğru kod,1 hatalı kodmu)

EDİTÖR YAPIMI DİOLOG ALTINDA PANEL

AlTop üçte taşır Panel'in align özelliğini
AlClient akranı kaplar(özelliklerden)
Font'a tıkladığımıda seçili nesne varsa dialog kutusu açılacak
Her procedure begin ile başlar.
Begin
If re.sellength>0 then

Begin
Fd.fontAssign(RE.defAtributes);

Parantezin içindekilerFD'nin içine kopyalanıyor.
If FD.execute then
Re.selAtributes.Assign(FD.font);
Re.setfocus;
End,
Else
Showmessage('metin seçin');
F9run edilince
Richtext nesnesi içeriğine yazı yazılıp seçilip,font tuşuna basılınca ,font menüsü ekrana gelir.

Aynı panele ekliyoruz.

Begin
If memo1.sellenght>0 then
Begin
Fd.font:memo1.font;
If fd.execute then
Memo1.font:=fd.font;
Memo1.setfocus ;
End ;
Else
Showmesage('önce metin seçin'),