Programlama yapalım ve Öğrenelim.

Zeka Oyunu

Delphi'de Zeka Oyunu unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, Menus;

type

TForm1 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

BitBtn9: TBitBtn;

MainMenu1: TMainMenu;

Oyun1: TMenuItem;

YeniOyun1: TMenuItem;

N1: TMenuItem;

Hakknda1: TMenuItem;

N2: TMenuItem;

k1: TMenuItem;

procedure FormCreate(Sender: TObject);

procedure BitBtn1KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure BitBtn4KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure BitBtn2KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure BitBtn3KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure BitBtn6KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure BitBtn5KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure BitBtn7KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure BitBtn8KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure BitBtn9KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure YeniOyun1Click(Sender: TObject);

procedure Hakknda1Click(Sender: TObject);

procedure k1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1 : TForm1;

Sayilar : Array [1..9] Of Byte;

Say,X,Y : Byte;

Durum : Boolean;

implementation

{$R *.dfm}

Procedure Yeni;

Begin

Form1.BitBtn1.Visible:=True;

Form1.BitBtn2.Visible:=True;

Form1.BitBtn3.Visible:=True;

Form1.BitBtn4.Visible:=True;

Form1.BitBtn5.Visible:=True;

Form1.BitBtn6.Visible:=True;

Form1.BitBtn7.Visible:=True;

Form1.BitBtn8.Visible:=True;

Form1.BitBtn9.Visible:=True;

Form1.BitBtn1.Enabled:=False;

Form1.BitBtn2.Enabled:=False;

Form1.BitBtn3.Enabled:=False;

Form1.BitBtn4.Enabled:=False;

Form1.BitBtn5.Enabled:=False;

Form1.BitBtn6.Enabled:=False;

Form1.BitBtn7.Enabled:=False;

Form1.BitBtn8.Enabled:=False;

Form1.BitBtn9.Enabled:=False;

For Say:=0 To 8 Do

Sayilar[Say+1]:=9;

Randomize;

For Say:=1 To 9 Do

Begin

Repeat

Durum:=False;

Sayilar[Say]:=Random(9);

For X:=1 To 9 Do

Begin

If (Sayilar[Say]=Sayilar[X]) And (Say<>X) Then Durum:=True;

End;

Until Durum=False;

End;

Form1.BitBtn1.Caption:=IntToStr(Sayilar[1]);

Form1.BitBtn2.Caption:=IntToStr(Sayilar[2]);

Form1.BitBtn3.Caption:=IntToStr(Sayilar[3]);

Form1.BitBtn4.Caption:=IntToStr(Sayilar[4]);

Form1.BitBtn5.Caption:=IntToStr(Sayilar[5]);

Form1.BitBtn6.Caption:=IntToStr(Sayilar[6]);

Form1.BitBtn7.Caption:=IntToStr(Sayilar[7]);

Form1.BitBtn8.Caption:=IntToStr(Sayilar[8]);

Form1.BitBtn9.Caption:=IntToStr(Sayilar[9]);

If Form1.BitBtn1.Caption='0' Then Form1.BitBtn1.Visible:=False;

If Form1.BitBtn2.Caption='0' Then Form1.BitBtn2.Visible:=False;

If Form1.BitBtn3.Caption='0' Then Form1.BitBtn3.Visible:=False;

If Form1.BitBtn4.Caption='0' Then Form1.BitBtn4.Visible:=False;

If Form1.BitBtn5.Caption='0' Then Form1.BitBtn5.Visible:=False;

If Form1.BitBtn6.Caption='0' Then Form1.BitBtn6.Visible:=False;

If Form1.BitBtn7.Caption='0' Then Form1.BitBtn7.Visible:=False;

If Form1.BitBtn8.Caption='0' Then Form1.BitBtn8.Visible:=False;

If Form1.BitBtn9.Caption='0' Then Form1.BitBtn9.Visible:=False;

If Form1.BitBtn1.Visible=True Then Form1.BitBtn1.Enabled:=True

Else Form1.BitBtn2.Enabled:=True;

End;

procedure TForm1.FormCreate(Sender: TObject);

begin

Yeni;

end;

procedure TForm1.BitBtn1KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

If Key=40 Then

Begin

BitBtn1.Enabled:=False;

If BitBtn4.Visible=True Then

Begin

BitBtn4.Enabled:=True;

BitBtn4.SetFocus;

End;

If BitBtn4.Visible=False Then

Begin

BitBtn1.Enabled:=False;

BitBtn1.Visible:=False;

BitBtn4.Visible:=True;

BitBtn4.Enabled:=True;

BitBtn4.Caption:=BitBtn1.Caption;

BitBtn4.SetFocus;

End;

If Key=39 Then

Begin

BitBtn1.Enabled:=False;

If BitBtn2.Visible=True Then

Begin

BitBtn2.Enabled:=True;

BitBtn2.SetFocus;

End;

If BitBtn2.Visible=False Then

Begin

BitBtn1.Enabled:=False;

BitBtn1.Visible:=False;

BitBtn2.Visible:=True;

BitBtn2.Enabled:=True;

BitBtn2.Caption:=BitBtn1.Caption;

BitBtn2.SetFocus;

End;

Key:=0;

end;

procedure TForm1.BitBtn4KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

If Key=40 Then

Begin

If BitBtn7.Visible=True Then

Begin

BitBtn4.Enabled:=False;

BitBtn7.Enabled:=True;

BitBtn7.SetFocus;

End;

If BitBtn7.Visible=False Then

Begin

BitBtn4.Enabled:=False;

BitBtn4.Visible:=False;

BitBtn7.Visible:=True;

BitBtn7.Enabled:=True;

BitBtn7.Caption:=BitBtn4.Caption;

BitBtn7.SetFocus;

End;

If Key=39 Then

Begin

If BitBtn5.Visible=True Then

Begin

BitBtn4.Enabled:=False;

BitBtn5.Enabled:=True;

BitBtn5.SetFocus;

End;

If BitBtn5.Visible=False Then

Begin

BitBtn4.Enabled:=False;

BitBtn4.Visible:=False;

BitBtn5.Visible:=True;

BitBtn5.Enabled:=True;

BitBtn5.Caption:=BitBtn4.Caption;

BitBtn5.SetFocus;

End;

If Key=38 Then

Begin

If BitBtn1.Visible=True Then

Begin

BitBtn4.Enabled:=False;

BitBtn1.Enabled:=True;

BitBtn1.SetFocus;

End;

If BitBtn1.Visible=False Then

Begin

BitBtn4.Enabled:=False;

BitBtn4.Visible:=False;

BitBtn1.Visible:=True;

BitBtn1.Enabled:=True;

BitBtn1.Caption:=BitBtn4.Caption;

BitBtn1.SetFocus;

End;

Key:=0;

end;

procedure TForm1.BitBtn2KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

If Key=40 Then

Begin

If BitBtn5.Visible=True Then

Begin

BitBtn2.Enabled:=False;

BitBtn5.Enabled:=True;

BitBtn5.SetFocus;

End;

If BitBtn5.Visible=False Then

Begin

BitBtn2.Enabled:=False;

BitBtn2.Visible:=False;

BitBtn5.Visible:=True;

BitBtn5.Enabled:=True;

BitBtn5.Caption:=BitBtn2.Caption;

BitBtn5.SetFocus;

End;

If Key=39 Then

Begin

If BitBtn3.Visible=True Then

Begin

BitBtn2.Enabled:=False;

BitBtn3.Enabled:=True;

BitBtn3.SetFocus;

End;

If BitBtn3.Visible=False Then

Begin

BitBtn2.Enabled:=False;

BitBtn2.Visible:=False;

BitBtn3.Visible:=True;

BitBtn3.Enabled:=True;

BitBtn3.Caption:=BitBtn2.Caption;

BitBtn3.SetFocus;

End;

If Key=37 Then

Begin

If BitBtn1.Visible=True Then

Begin

BitBtn2.Enabled:=False;

BitBtn1.Enabled:=True;

BitBtn1.SetFocus;

End;

If BitBtn1.Visible=False Then

Begin

BitBtn2.Enabled:=False;

BitBtn2.Visible:=False;

BitBtn1.Visible:=True;

BitBtn1.Enabled:=True;

BitBtn1.Caption:=BitBtn2.Caption;

BitBtn1.SetFocus;

End;

Key:=0;

end;

procedure TForm1.BitBtn3KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

If Key=40 Then

Begin

If BitBtn6.Visible=True Then

Begin

BitBtn3.Enabled:=False;

BitBtn6.Enabled:=True;

BitBtn6.SetFocus;

End;

If BitBtn6.Visible=False Then

Begin

BitBtn3.Enabled:=False;

BitBtn3.Visible:=False;

BitBtn6.Visible:=True;

BitBtn6.Enabled:=True;

BitBtn6.Caption:=BitBtn3.Caption;

BitBtn6.SetFocus;

End;

If Key=37 Then

Begin

If BitBtn2.Visible=True Then

Begin

BitBtn3.Enabled:=False;

BitBtn2.Enabled:=True;

BitBtn2.SetFocus;

End;

If BitBtn2.Visible=False Then

Begin

BitBtn3.Enabled:=False;

BitBtn3.Visible:=False;

BitBtn2.Visible:=True;

BitBtn2.Enabled:=True;

BitBtn2.Caption:=BitBtn3.Caption;

BitBtn2.SetFocus;

End;

Key:=0;

end;

procedure TForm1.BitBtn6KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

If Key=40 Then

Begin

If BitBtn9.Visible=True Then

Begin

BitBtn6.Enabled:=False;

BitBtn9.Enabled:=True;

BitBtn9.SetFocus;

End;

If BitBtn9.Visible=False Then

Begin

BitBtn6.Enabled:=False;

BitBtn6.Visible:=False;

BitBtn9.Visible:=True;

BitBtn9.Enabled:=True;

BitBtn9.Caption:=BitBtn6.Caption;

BitBtn9.SetFocus;

End;

If Key=38 Then

Begin

If BitBtn3.Visible=True Then

Begin

BitBtn6.Enabled:=False;

BitBtn3.Enabled:=True;

BitBtn3.SetFocus;

End;

If BitBtn3.Visible=False Then

Begin

BitBtn6.Enabled:=False;

BitBtn6.Visible:=False;

BitBtn3.Visible:=True;

BitBtn3.Enabled:=True;

BitBtn3.Caption:=BitBtn6.Caption;

BitBtn3.SetFocus;

End;

If Key=37 Then

Begin

If BitBtn5.Visible=True Then

Begin

BitBtn6.Enabled:=False;

BitBtn5.Enabled:=True;

BitBtn5.SetFocus;

End;

If BitBtn5.Visible=False Then

Begin

BitBtn6.Enabled:=False;

BitBtn6.Visible:=False;

BitBtn5.Visible:=True;

BitBtn5.Enabled:=True;

BitBtn5.Caption:=BitBtn6.Caption;

BitBtn5.SetFocus;

End;

Key:=0;

end;

procedure TForm1.BitBtn5KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

If Key=40 Then

Begin

If BitBtn8.Visible=True Then

Begin

BitBtn5.Enabled:=False;

BitBtn8.Enabled:=True;

BitBtn8.SetFocus;

End;

If BitBtn8.Visible=False Then

Begin

BitBtn5.Enabled:=False;

BitBtn5.Visible:=False;

BitBtn8.Visible:=True;

BitBtn8.Enabled:=True;

BitBtn8.Caption:=BitBtn5.Caption;

BitBtn8.SetFocus;

End;

If Key=38 Then

Begin

If BitBtn2.Visible=True Then

Begin

BitBtn5.Enabled:=False;

BitBtn2.Enabled:=True;

BitBtn2.SetFocus;

End;

If BitBtn2.Visible=False Then

Begin

BitBtn5.Enabled:=False;

BitBtn5.Visible:=False;

BitBtn2.Visible:=True;

BitBtn2.Enabled:=True;

BitBtn2.Caption:=BitBtn5.Caption;

BitBtn2.SetFocus;

End;

If Key=37 Then

Begin

If BitBtn4.Visible=True Then

Begin

BitBtn5.Enabled:=False;

BitBtn4.Enabled:=True;

BitBtn4.SetFocus;

End;

If BitBtn4.Visible=False Then

Begin

BitBtn5.Enabled:=False;

BitBtn5.Visible:=False;

BitBtn4.Visible:=True;

BitBtn4.Enabled:=True;

BitBtn4.Caption:=BitBtn5.Caption;

BitBtn4.SetFocus;

End;

If Key=39 Then

Begin

If BitBtn6.Visible=True Then

Begin

BitBtn5.Enabled:=False;

BitBtn6.Enabled:=True;

BitBtn6.SetFocus;

End;

If BitBtn6.Visible=False Then

Begin

BitBtn5.Enabled:=False;

BitBtn5.Visible:=False;

BitBtn6.Visible:=True;

BitBtn6.Enabled:=True;

BitBtn6.Caption:=BitBtn5.Caption;

BitBtn6.SetFocus;

End;

Key:=0;

end;

procedure TForm1.BitBtn7KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

If Key=38 Then

Begin

If BitBtn4.Visible=True Then

Begin

BitBtn7.Enabled:=False;

BitBtn4.Enabled:=True;

BitBtn4.SetFocus;

End;

If BitBtn4.Visible=False Then

Begin

BitBtn7.Enabled:=False;

BitBtn7.Visible:=False;

BitBtn4.Visible:=True;

BitBtn4.Enabled:=True;

BitBtn4.Caption:=BitBtn7.Caption;

BitBtn4.SetFocus;

End;

If Key=39 Then

Begin

If BitBtn8.Visible=True Then

Begin

BitBtn7.Enabled:=False;

BitBtn8.Enabled:=True;

BitBtn8.SetFocus;

End;

If BitBtn8.Visible=False Then

Begin

BitBtn7.Enabled:=False;

BitBtn7.Visible:=False;

BitBtn8.Visible:=True;

BitBtn8.Enabled:=True;

BitBtn8.Caption:=BitBtn7.Caption;

BitBtn8.SetFocus;

End;

Key:=0;

end;

procedure TForm1.BitBtn8KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

If Key=38 Then

Begin

If BitBtn5.Visible=True Then

Begin

BitBtn8.Enabled:=False;

BitBtn5.Enabled:=True;

BitBtn5.SetFocus;

End;

If BitBtn5.Visible=False Then

Begin

BitBtn8.Enabled:=False;

BitBtn8.Visible:=False;

BitBtn5.Visible:=True;

BitBtn5.Enabled:=True;

BitBtn5.Caption:=BitBtn8.Caption;

BitBtn5.SetFocus;

End;

If Key=37 Then

Begin

If BitBtn7.Visible=True Then

Begin

BitBtn8.Enabled:=False;

BitBtn7.Enabled:=True;

BitBtn7.SetFocus;

End;

If BitBtn7.Visible=False Then

Begin

BitBtn8.Enabled:=False;

BitBtn8.Visible:=False;

BitBtn7.Visible:=True;

BitBtn7.Enabled:=True;

BitBtn7.Caption:=BitBtn8.Caption;

BitBtn7.SetFocus;

End;

If Key=39 Then

Begin

If BitBtn9.Visible=True Then

Begin

BitBtn8.Enabled:=False;

BitBtn9.Enabled:=True;

BitBtn9.SetFocus;

End;

If BitBtn9.Visible=False Then

Begin

BitBtn8.Enabled:=False;

BitBtn8.Visible:=False;

BitBtn9.Visible:=True;

BitBtn9.Enabled:=True;

BitBtn9.Caption:=BitBtn8.Caption;

BitBtn9.SetFocus;

End;

Key:=0;

end;

procedure TForm1.BitBtn9KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

If Key=37 Then

Begin

If BitBtn8.Visible=True Then

Begin

BitBtn9.Enabled:=False;

BitBtn8.Enabled:=True;

BitBtn8.SetFocus;

End;

If BitBtn8.Visible=False Then

Begin

BitBtn9.Enabled:=False;

BitBtn9.Visible:=False;

BitBtn8.Visible:=True;

BitBtn8.Enabled:=True;

BitBtn8.Caption:=BitBtn9.Caption;

BitBtn8.SetFocus;

End;

If Key=38 Then

Begin

If BitBtn6.Visible=True Then

Begin

BitBtn9.Enabled:=False;

BitBtn6.Enabled:=True;

BitBtn6.SetFocus;

End;

If BitBtn6.Visible=False Then

Begin

BitBtn9.Enabled:=False;

BitBtn9.Visible:=False;

BitBtn6.Visible:=True;

BitBtn6.Enabled:=True;

BitBtn6.Caption:=BitBtn9.Caption;

BitBtn6.SetFocus;

End;

Key:=0;

end;

procedure TForm1.YeniOyun1Click(Sender: TObject);

begin

Yeni;

If Form1.BitBtn1.Visible=True Then Form1.BitBtn1.SetFocus

Else Form1.BitBtn2.SetFocus;

end;

procedure TForm1.Hakknda1Click(Sender: TObject);

begin

Application.MessageBox('Zeka oyunu -- Ağustos 2005','Dokuz Taş Oyunu',64)

end;

procedure TForm1.k1Click(Sender: TObject);

begin

Halt;

end;

end.

Delphi - .....................................

Mouse Click Similasyonu

// Set the mouse cursor to position x,y:

// Maus an Position x,y setzen:

SetCursorPos(x, y);

// Simulate the left mouse button down

// Linke Maustaste simulieren

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);

mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

// Simulate the right mouse button down

// Rechte Maustaste simulieren

mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);

mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);

Delphi - .....................................

Ofis araç çubuğu benzeri bir araç

Ofis araç çubuğu benzeri bir araç çubuğumuz olsun istersek

1) önce bir satatus bar yaratıp istediğiniz düğmeleri yerleştirin

2) daha sonra status barın hizalamasını right olarak ayarlayın.

3) ben şıklık olsun diye formumun gözükmemesini sadece status barın gözükmesini istedim bunun için

a) formun on create olayına

procedure TForm1.FormCreate(Sender: TObject);

begin

Brush.Style:=bsClear;

end;

kodlarını girin.

b) sonra formun transparan özelliğini true yapın

c) son olarak formun border stilini none olarak değiştirin.

4) formun genişliğini ve yüksekliğini status bar ile aynı olacak şekilde ayarlayın

5)şimdi formun on create olayına son bir kod ekleyeceğiz yani son hali şu olacak

procedure TForm1.FormCreate(Sender: TObject);

begin

Brush.Style:=bsClear;

form1.left:=screen.widht-form1.widht

form1.top:=screen.Height -(screen.Height -1)

end;

iyi çalışmalar

Delphi - .....................................

Her Yönü ile Delphi ve Excel

Başlıktanda anlayacağınız gibi Her yönü ile delphi ve excel

Uses satırına eklenecek

ComObj

Değişkenlerimi tanımlayalım

var

XLApp : OleVariant;

ColonAraligi : OleVariant;

const

alignCenter = -4108;

valignCenter = -4108;

alignRight =- 4152;

Excel Kontrolu

try

XLApp := GetActiveOleObject('Excel.Application');

except

try

XLApp := CreateOleObject('Excel.Application');

except

ShowMessage('Excel kurulu değil');

Exit;

end;

Var olan br excel'i açma

XLApp.Workbooks.Open('c:gerizekali.xls');

Yeni çalışma sayfası ekler.

XLApp.WorkBooks.Add;

Yeniden adlandır

XLApp.ActiveSheet.Name := 'geri zekali';

//Aktif Sayfanın ismini değiştirir

XLApp.Workbooks[1].WorkSheets[1].Name := 'GeriZekali';

//Belirttiğiniz sayfanın ismini değişirir.

Excel görünsün, görünmesin

XLApp.Visible := True;

//Gösterir

XLApp.Visible := False;

//Gizler

Hücre Seçme

XLApp.Range('A1:J25').Select;

Hücreleri Birleştirme

XLApp.Range['A1:C1'].Mergecells := True;

//A1 den C1 e kadar olan hücreleri birleştirir

Hücre Hizalama

XLApp.Cells[1, 1].HorizontalAlignment := AlignCenter;

//Yatay Hizalama

XLApp.Cells[1, 1].VerticalAlignment := valignCenter;

//Dikey Hizalama

Satır Yüksekliği

XLApp.Rows[1].RowHeight := 30;

Border

XLApp.Range[A1,C1].Borders.Weight := 1;

Border Rengi

XLApp.Cells[1, 1]..Borders[1].Colorindex := -4142;

Font Ayarları

XLApp.Range['A1:A1'].Font.Bold := True;

//Bold yapar

XLApp.Range['A1:A1'].Font.Size := 12;

//Size 12 yapar

Gridleri gizler

XLApp.ActiveWindow.DisplayGridlines := False;

Değer atama

XLApp.Cells[1, 1].Value := 'Ben bir Geri Zekalıyım';

//yukarida A,C hücrelerini birleştirdiğimiz için bundan sonra aynı satırda bir sonraki hücreye bir değer atamak istersek

XLApp.Cells[1, 4].Value := 'deneme'; dememiz gerekli

Kolon Aralığı

ColonAraligi := XLApp.Workbooks[1].WorkSheets[1].Columns;

ColonAraligi.Columns[4].ColumnWidth := 25;

//burada ColonAraligi : OleVariant; değişkenimizden yararlandık, 4. kolonun genişliğini 25 yaptık.

//Kolon Otomatik Genişlesin

XLApp.selection.Columns.AutoFit;

Rakamları Formatlama

XLApp.WorkBooks[1].WorkSheets[1].Columns[2].NumberFormat := '#.##0';

//2 kolona girilecek sayıları formatladık 1.250.000 şeklinde

XLApp.WorkBooks[1].WorkSheets[1].Columns[2].NumberFormat := ";

//Formatlı bir hücreyi formatsız yapar.

Tarih Formatlama

XLApp.Cells[1,1].Value := FormatDateTime('dd-mmm-yyyy', Now);

Formuller

XLApp.Range['A5', 'A5'].Formula := '=Sum(A1:A4)';

//A1 hücresinden A4 hücresine kadar Toplar Değerlerini A5 hücresine yazar.

Kaydet

XLApp.SaveAs('c:GeriZekali.xls');

//Çalışma sayfasını kaydeder

XLApp.ActiveWorkBook.SaveAs('c:GeriZekali.xls');

//Aktif sayfayı kaydeder.

Yazıcı Ayarları

//Kenarlıklar

XLApp.ActiveSheet.PageSetup.LeftMargin := 0;

XLApp.ActiveSheet.PageSetup.RightMargin := 0;

XLApp.ActiveSheet.PageSetup.TopMargin := 0;

XLApp.ActiveSheet.PageSetup.BottomMargin := 0;

//Hizalama

XLApp.ActiveSheet.PageSetup.CenterHorizontally := 1;

//Yatay Olarak Ortaya alır

XLApp.ActiveSheet.PageSetup.CenterVertically := 1;

//Dikey Olarak Ortaya Alır

//Sayfa Ayarları

XLApp.ActiveSheet.PageSetup.Orientation := 2;

//2 yatay 1 dikey olarak ayarlar.

Alt Bilgi

XLApp.ActiveSheet.PageSetup.LeftFooter := 'Rapor Tarihi : ' + '&D';

//O günü tarihini sayfanın alt bilgi kısmına basalım

Kaçıncı Sayfa

XLApp.ActiveSheet.PageSetup.RightFooter := 'Sayfa : ' + '&P'+'/'+'&N';

//Yazıcıdan aldığımız sayfaların kaç sayfada hangi sayfa bilgisini gösterir

Alt Bilgi için diğer parametreler

&P+number

&P-number

& "Font Adı"

&nn

//bunarın karşılıklarınıda artık zahmet edip tektek deneyerek anlamlarını bulunuz. ) (Yaşasın Kötülük)

Tekrar Eden Saatırlar

XLApp.ActiveSheet.PageSetup.PrintTitleRows := '$2:$2';

//Yazılan Sayfada başlık olarak tekrar etmesini sağlarız.

İstediğiniz hücreleri $2:$2 dediğimizde ikinci satırı olduğu gibi her print edilen sayfanın başında gösterir

Yazıcı Renkli, Renksiz

XLApp.ActiveSheet.PageSetup.BlackAndWhite := False;

Yazıcı Görüntüsü

XLApp.ActiveSheet.PrintPreview;

Kopya Sayısı

XLApp.ActiveWindow.SelectedSheets.PrintOut (Copies := 1);

//Kaç Kopyası Olsun

//Sığdır

XLApp.ActiveSheet.PageSetup.Zoom := 65;

//Çalışma Sayfanızı 1 Sayfaya Sığdırır.

Kapat

if not VarIsEmpty(XLApp) then

begin

XLApp.DisplayAlerts := False;

XLApp.Quit;

XLApp:=unassigned;

//Formunuzun OnDestroy olayına bu satırları yazınki form kapandığında Excel havada asılı kalmasın.

Sanırım bu kadar, umarım işinize yarar.

Delphi - .....................................

Mouse Wheel (Scroll) Button

Farenin kaydırma düğmesinin nasıl kullanılacağını gösterir.

procedure TForm1.FormCreate(Sender: TObject);

begin

// Birkere harekette kaç hamle yapılacağı öğreniliyor.

SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0, @WheelCount, 0);

end;

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer;

MousePos: TPoint; var Handled: Boolean);

var

I: Integer;

begin

J := WheelDelta;

if (J < 0) then J := -WheelDelta;

while (J <> 0) do

begin

if (WheelDelta > 0) then

// Yukarı kaydırma.

for I := 0 to Pred(WheelCount) do Perform(WM_VSCROLL, SB_LINEUP, 0)

else

// Aşağı kaydırma.

for I := 0 to Pred(WheelCount) do Perform(WM_VSCROLL, SB_LINEDOWN, 0);

Dec(J, 120);

end;

Delphi - .....................................

Boşlukları Sil

String bir değişkenin başındaki veya sonundaki boşlukları silen fonksiyon

Verilen Stringin başındaki boşlukları silmek için

function BoslukAt(s:String);

var

s1 :=String;

Begin

s1:=s;

While S1[1] <> ' ' Do

S1:=Delete(s1,1,1);

BoslukAt(S1);

End;

Verilen Stringin sonundaki boşlukları silmek için

function BoslukAt(s:String)

var

i :Integer;

S1 :String;

Begin

i:=length(s);

While S[i] <> ' ' Do

Begin

S1:=Delete(s,i,1);

i:=i-1;

End;

BoslukAt(S1);

End;

Örnek kullanım: BoslukAt(edit1.Text); veya BoslukAt(' jfkdlfs '); gibi.

Delphi - .....................................