Delphide Standart Araçlar

Edit (Yazı Kutusu): Yazı yazmak ve girişi kutusu, dışarıdan kullanıcı formun üzerindeki bu araçtan bilgi girişi için kullanılır.

Özellikleri:

Aligement: İçinde yazdığımız yazıyı hizalar.

Color: Zemin rengi.

NumberOnly: Sadece sayı girilsin.

PassowordChar: Şifre kutusu yapmak için kullanılır.

PopupMenu: O aracın üzerindeki iken sağ tuşa ile görünen menü.

Sitemizin daha kaliteli paylaşımları yapabilmesi için sizin yorumlarınıza ihtiyacımız var :)

Delphi de Form Olayları

OnActivate: Form veya nesne aktif olduğunda çalışacak olan kodlar bu alan yazılır.

OnCanResize: Yeniden boyutlandırma. Denetim boyutlandırıldığı sırada işlemin durdurulmasına izin verilmesinden ortaya çıkar.

Onclick: Seçili olan bir araçtan başka bir araca geçildiğinde Onclick mousen sol tuşuna bir defa kliklendiğinde çalıştırılan kod.

Onclose: Form Kapatılırken.

Oncreate: Form belleğe yüklenir iken.

OnDbleClick: Ard arda iki defa basıldığında çalışan komutlar.

OnDeActive: Form pasifleştirildiğinde.

OnDrogDrop: Sürekle bırak kullanacağı zaman.

OnExit: Bileşenden ayrılırken.

OnHide: Form gizlendiğinde.

KeyDown: Herhangi bir tuşa basıldığında

KeyPress: Tuştan değer alındığında.

KeyUp: Herhangi bir tuştan çekildiğinde.

MouseDown: Sol tuşa basıldığında.

MouseUp: Çekildiğinde.

MouseMove: Hareket ettirildiğinde.

MouseEnter: Enter basıldığında

OnPoint: Formun üzerinde şekil çizimi yapılır.

OnResize: Yeniden boyutlandırıldığında.

OnShow: Form görünür hale geçerken

Sitemizin daha kaliteli paylaşımları yapabilmesi için sizin yorumlarınıza ihtiyacımız var :)

Delphide Form Özellikleri

ActiveControl: Aktif olan nesne ne olacak. Form açıldığında imlecin neyin üzerinde konumlandırılmalı.

Align:  Hizalamak için kullanılır.

AlphaBlend: Formumuzun saydamlığının olup olmadığını belirtir.

AlphaBlendValue: Saydamlık Oranı.

AutoScroll: Form Araçları formu geçtiğinde sağda yada aşağıda kaydırma çubuğunun olmasını sağlar.

AutoSize: Form üzerine koyduğumuz araçlar kadar boyutlanır.

BİDMode: Sadece arap alfabesi için kullanılan bir özellik. Hangi yöne yazılacağı belirler.

BorderIcons: Windows pencerelerinin sağ üst köşesinde bulunan kapatma tam ekran, küçültme gibi menülerin görünür olup olmadıklarını belirleme.

BorderStyle: Formumuzun çerçeve stileri.

BorderWidth: Çerçeve Kalınlığı formun.

Caption: Formun başlığının yazıldığı yer.

ClienHeight: Başlık hariç kullanılacak yükseklik.

ClienWidth: Kullanılabilir Genişlik.

Color: Formumuzun zemin rengini belirlemek için kullanılır.

Constraints: Formumuzun büyütme ve küçültme sırasında max ve min değerleri için kullanılır.

Ctl3D: Formumuzun 3 boyutlu görünmesini sağlar.

Cursor: Formumuzun üzerinde hangi işareti alsın imleç bunu belirleriz.

Enabled: Kullanılabilir. Kullanıcının herhangi bir işlem yapmamasını sağlar.

Font: Formun üzerindeki yazılarla alakalı efekt, renk, boyut gibi özellikleri

Height: Formun yüksekliği pixel cinsinden.

HelpContext: Yardım kullanılacak ise konu numarası belirlenir.

Hint: Formumuzun üzerine geldiğinde açıklama yazısı çıkması için kullanılır.

ShowHint: Yazdığımız yazının aktif olmasını için kullanılır.

İcon: Farklı bir icon seçmek için kullanılır.

Left: Formun ekranın sol kenarından ne kadar uzakta konumlandırılacağına karar verir.

Name: O aracı anma değeri, formun ismi.

Top: Formun ekrandaki konumunu belirler.

Visible: Formun görünebirliğini açma ve kapama.

Width: Formun genişliği.

WindowState: 3 tane değeri var. Pencere boyutu.

Sitemizin daha kaliteli paylaşımları yapabilmesi için sizin yorumlarınıza ihtiyacımız var :)

Delphi Değişken Kuralları

  Değişken isminin ilk karakteri mutlaka alfabe olmalıdır.

2.       Değişken sayı karakter bulundurabilir.

3.       Türkçe karakter kullanılmaz.

4.       Değişken isimleri arasında boşluk bırakılmaz.

5.       İçerisinde özel karakter kullanılmaz.

6.       Maximum 63 karakter kullanılır.

7.       Delphide saklı kelime değişken ismi olarak verilemez.

8.       O alanı ifade eden kelimeler kullanılmalı.

9.       Etiket ve prosedür ismi kullanılmaz.

Sitemizin daha kaliteli paylaşımları yapabilmesi için sizin yorumlarınıza ihtiyacımız var :)

Delphide İç İçe Kare Oluşturmak

Var
Mx,my integer
Begin
Randomize
x:= trunc ( random*form1.width);
y:= trunc ( random*form1.height);
Fori:= 10 down to do
Canvas. Rectangle(x+i*10, y+i*10,x-i*10,y-i*10);

Delphide Sin, Cos, Tan Çizimi

DELPHİ

Çizimler döngü noktalaması ile çizilmiştir, girilen dalga sayısına göre sinx cosx ve tanx dalgaları grafiklemektedir. Ayrıca çizilen dalgaların renkleri  colordialog ile seçilebilmektedir.

DELPHİ

DELPHİ

DELPHİ

DELPHİ

DELPHİ

DELPHİ

Hazırlayan: Ulaş Kılıç

                             

Delphide Dikdörtgen Yapımı

delphi

procedure TForm46.Button1Click(Sender: TObject);
begin
Canvas.MoveTo(50,50);
Canvas.LineTo(250,50);
Canvas.LineTo(250,100);
Canvas.LineTo(50,100);
Canvas.MoveTo(50,50);
Canvas.LineTo(50,100);
end;
end.

procedure TForm46.Button1Click(Sender: TObject);
var
k:TRect;
begin
k.Left:=50;
k.Top:=100;
k.Right:=150;
k.Bottom:=250;
Canvas.Rectangle(k);
end;
end.

Delphide Klasör Oluşturma

if CreateDir( 'C:UsersUSERDesktopprogramlamahocam') then
begin
  Application.MessageBox('Klasör oluşturuldu!','Mesaj', MB_ICONASTERISK);

end;

Delpide Fonksiyon Kullanımı

 program function_topla;

{$APPTYPE CONSOLE}

var
x,y,z:integer;
function topla(a,b:integer):integer;
 begin
   topla:=a+b;
   write('a+b=',a+b);
                read;
 end;

begin
  write('Lütfen İki Sayi Giriniz.');
     read(x,y);
  z:=topla(x,y);
  write('Toplama Sonucu:',z);
  readln;
  readln;

end.

Delphide Form ve Nesneler

delphi

procedure TForm46.Button1Click(Sender: TObject);
begin
showmessage(inttostr(strtoint(edit1.Text)-strtoint(edit2.Text)));
end;

Delphide ADOconnection ve ADOtable Nesnelerini Veri Tabanına Bağlama

Delphi de Girilen sayı haftanın hangi günü ise onu ekrana yazdıran program

delphi

delphi

Delphide Hesap Makinesi

delphi

unit Unit5;

interface

.....
....

.....
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
  degisken:string;
  sayibir:Integer;
  sayiiki:Integer;

implementation

{$R *.dfm}

procedure TForm5.Button10Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+FloatToStr(0);
end;

procedure TForm5.Button11Click(Sender: TObject);
begin
degisken:='+';
if sayibir<=0 then
begin
sayibir:=StrToInt(Edit1.Text);
Edit1.Text:='';
end
else
begin
sayiiki:=StrToInt(Edit1.Text);
Button11.Visible:=False;
Button12.Visible:=False;
Button13.Visible:=False;
Button14.Visible:=False;
Button15.Visible:=True;
Edit1.Text:='';
end;
end;

procedure TForm5.Button12Click(Sender: TObject);
begin
degisken:='-';
if sayibir<=0 then
begin
sayibir:=StrToInt(Edit1.Text);
Edit1.Text:='';
end
else
begin
sayiiki:=StrToInt(Edit1.Text);
Button11.Visible:=False;
Button12.Visible:=False;
Button13.Visible:=False;
Button14.Visible:=False;
Button15.Visible:=True;
Edit1.Text:='';
end;
end;

procedure TForm5.Button13Click(Sender: TObject);
begin
degisken:='*';
if sayibir<=0 then
begin
sayibir:=StrToInt(Edit1.Text);
Edit1.Text:='';
end
else
begin
sayiiki:=StrToInt(Edit1.Text);
Button11.Visible:=False;
Button12.Visible:=False;
Button13.Visible:=False;
Button14.Visible:=False;
Button15.Visible:=True;
Edit1.Text:='';
end;
end;

procedure TForm5.Button14Click(Sender: TObject);
begin
degisken:='/';
if sayibir<=0 then
begin
sayibir:=StrToInt(Edit1.Text);
Edit1.Text:='';
end
else
begin
sayiiki:=StrToInt(Edit1.Text);
Button11.Visible:=False;
Button12.Visible:=False;
Button13.Visible:=False;
Button14.Visible:=False;
Button15.Visible:=True;
Edit1.Text:='';
end;
end;

procedure TForm5.Button15Click(Sender: TObject);
var
sonuc,num:Integer;
begin
if degisken='+' then
   begin
        Edit1.Text:=FloatToStr(sayibir+sayiiki);
   end;
 if degisken='-' then
     begin
          Edit1.Text:=FloatToStr(sayibir-sayiiki);
     end;
if degisken='*' then
begin
  Edit1.Text:=FloatToStr(sayibir*sayiiki);
end;
 if degisken='/' then
 begin  Edit1.Text:=FloatToStr(sayibir/sayiiki);
 end;
     num:=MessageDlg('Tekrar İşlem Yapmak İstermisiniz ?',mtInformation,[mbYes,mbNo],0);
        case num of
        6:
        begin
          Button11.Visible:=True;
          Button12.Visible:=True;
          Button13.Visible:=True;
          Button14.Visible:=True;
          Button15.Visible:=False;
          Edit1.Text:='';
        end;
        7:Form5.Free;
        else
        ShowMessage('Tanımlanmayan değer !');
        end;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+FloatToStr(1);
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+FloatToStr(2);
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+FloatToStr(3);
end;

procedure TForm5.Button4Click(Sender: TObject);
begin
     Edit1.Text:=Edit1.Text+FloatToStr(4);
end;

procedure TForm5.Button5Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+FloatToStr(5);
end;

procedure TForm5.Button6Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+FloatToStr(6);
end;

procedure TForm5.Button7Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+FloatToStr(7);
end;

procedure TForm5.Button8Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+FloatToStr(8);
end;

procedure TForm5.Button9Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+FloatToStr(9);
end;

end.

delphi

Delphi Mesaj Kutusu 3

delphi

procedure TForm3.Button1Click(Sender: TObject);
var
num : Integer;
begin
        num:=MessageDlg('Mesaj',mtInformation,[mbYes,mbNo,mbRetry,mbCancel],0);
        case num of
        6:ShowMessage('Yes Tıklandı');
        7:ShowMessage('No Tıklandı');
        4:ShowMessage('Tekrar Tıklandı');
        2:ShowMessage('Çıkış Tıklandı');
        else
        ShowMessage('Tanımlanmayan değer ! ');
        end;
        end;

end.

Delphi Mesaj Kutusu 2

delphi

procedure TForm3.Button1Click(Sender: TObject);
var
num : Integer;
begin
        num:=MessageDlg('Mesaj',mtInformation,[mbYes,mbNo,mbCancel],0);
end;

Delphi Mesaj Kutusu

delphi

procedure TForm2.Button1Click(Sender: TObject);
var
sayi:Integer;
begin
        sayi:=StrToInt(Edit1.Text);
          case sayi of
              1:ShowMessage('Bir');
              2:ShowMessage('İkin');
              3:ShowMessage('Üç');
              4:ShowMessage('Dört');
              5:ShowMessage('Beş');
              6:ShowMessage('Altı');
              7:ShowMessage('Yedi');
              8:ShowMessage('Sekiz');
              9:ShowMessage('Dokuz');
              10:ShowMessage('On');
              else
              ShowMessage('Girdiğiniz değer 1-9 aralığında değildir.');
          end;
end;

Delphi İç İçe 3 lü For Döngüsü

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
i,k,l,j:Integer;
begin
            l:=20;
            for j := 3 to 4 do
              begin
                  for k := 6 Downto 4 do
                  begin
                    for i := 2 to 3 do
                     begin
                     Self.Canvas.TextOut(100,10+l,IntToStr(j));
                     Self.Canvas.TextOut(120,10+l,IntToStr(i));
                     Self.Canvas.TextOut(140,10+l,IntToStr(k));
                     l:=l+20
                   end;
               end;
           end;
 end;

Delphi İç İçe For Döngüsü

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
i,k,l:Integer;
begin
        l:=20;
             for i := 3 Downto 1 do
               begin
                 for k := 2 to 4 do
                   begin
                     Self.Canvas.TextOut(100,10+l,IntToStr(k));
                     Self.Canvas.TextOut(120,10+l,IntToStr(i));
                     l:=l+20
                   end;
               end;
end;

Delphide İşlem Programı

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
birincisayi,ikincisayi,sonuc:Double;
isaret:string;
begin
        birincisayi:=StrToFloat(Edit1.Text);
        ikincisayi:=StrToFloat(Edit2.Text);
        isaret:=Edit3.Text;
        if (isaret='+') then
        begin
          sonuc:=birincisayi+ikincisayi;
        end;
        if (isaret='-') then
        begin
          sonuc:=birincisayi-ikincisayi;
        end;
        if (isaret='*') then
        begin
          sonuc:=birincisayi*ikincisayi;
        end;
        if (isaret='/') then
        begin
          sonuc:=birincisayi/ikincisayi;
        end;
        Edit4.Text:=FloatToStr(sonuc);
end;

end.

Delphi 2010- Sql Server 2012 Veritabanı işlemleri