procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
randomize;
button1.Top :=random(form1.Height);
button1.Left:=random(form1.Width);
end;

SysUtils unitesinin içindeki RenameFile function bu isi görmektedir.

Treeview componentinin durumunu kaydetme ve gösterme

Kaydetmek için

TreeView.SaveToFile('Dosya.adi';)

Öncelikle Excel’i kullanmamız için  uses satırına comobj ünitesini ekliyoruz…

Excel dosyası ve sayfası yaratmak

procedure TForm1.Button1Click(Sender: TObject);

var

sayfa,uygulama: Variant;

begin

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

uygulama.Visible := True;

uygulama.Workbooks.Add; //Kitap Ekler

uygulama.Worksheets.Add; //Sayfa Ekler

end;

Burada ExcelApplication’ı , uygulama isimli değişkene atatık..Form üzerine ExcelApplication (Server sekmesinden bulabilirsiniz ) ekleyebilirsiniz..İkiside aynı şey..Daha sonra visible özelliğini true yaptık..Bunun da anlamı ; program çalıştırıldığında Excel de açılacak..Eğer false yaparsanız Excel arkada çalışır..Son olarakda yeni bir çalışma kitabı ve sayfa ekledik..

Excel Dosyasını Kapatmak

uygulama.quit; //Uygulamayı Kapat

Kullanarak açtığımız dosyayı , kapatıyoruz…

Excel Sayfasını silmek

uygulama.ActiveSheet.Delete;

Excel Dosyasının İsmini Öğrenmek

isim:=uygulama.ActiveSheet.Name; //aktif sayfanın ismi

Form1.Caption:=isim;

İsim’ adlı değişkeni string olarak tanımlamayı unutmayın..

Excelde bir hücreyi seçmek

C2 hücresini seçelim

uygulama.ActiveSheet.Cells[2,3].Select;

yada

uygulama.ActiveSheet.Range['C3'].Select;

Toplu hücre seçmek isteniyorsa

uygulama.ActiveSheet.Range['A1:A11'].Select;

Excel’de Formül

Belkide en güzel özelliği bu..Excelde kullandığımız formülleri , Delphide de kullanmamız..

uygulama.ActiveSheet.Cells[1,2].Formula := '=C2*10' ;end;

Burada küçük bir ekleme daha yapıyım..Örn ; exceldeki c2 hücresinde formül var..Siz C2 hücresini formda bir edit de görüntülediğinizde formülle hesaplanan değer gözükecektir..Aklınız karışmasın..Konuyu biraz daha açıyım ;

Excelde bu verileri girdiniz. ( A1  50 ,B1 45 , C1 50 ) Daha sonra ortalama fonksiyonu ile ortalamasını alıp ve yuvarla yapıp c2’e yazdırdınız…Delphide edit1’e c2 hücresini atarsanız direk sonuç gözükecektir..Kısacası bütün formülleri excelde yapıp , Delphide sadece görüntülersiniz..

Önceden yapılmış bir Excel dosyasını açmak

uygulama.WorkBooks.Open['c:data.xls'];

Son olarak küçük bir örnek program yapalım…

Uses satırına comobj’yi ekledik..

Var Bloğunda Global olarak uygulama değişkenini variant tanımladık..

Form’un oncreate olayına

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

uygulama.Visible:=true;

uygulama.WorkBooks.Open['c:data.xls'];

C’deki data.xls dosyasını açtık..

Formun üstüne edit ve buton ekledik..Butonun Onclick olayına

edit1.Text:=(uygulama.ActiveSheet.cells[2,1].value); // Anlamı ; A2 hücresini edit1’de görüntüle..

Ve son olarak  form’a listbox ve ikinci bir buton ekledik..Butonun Onclick olayına

i:=1;

Repeat

ListBox1.items.Add(uygulama.ActiveSheet.cells[i,1].Value);

inc(i);

until uygulama.ActiveSheet.cells[i,1].value='';// boş hücreye kadar