Aplikasi Kamus dan game menggunakan Delphi 7
Ini Aplikasi Yang open source,..,.,.
Semoga Ini bermanfaat!!!!!!!
Kamus dan kodenya Download kam...
Read User's Comments (9)
Kumpulan Properti ,palate sekaligus code untuk memperindah delphi yang asik
Coba download properti ini Ikon asik
Ini juga mungkin dapat membantu anda Skin
Ini percobaanya
procedure TF_utama.Button1Click(Sender: TObject);
var
sl:TStringList;
i:integer;
begin
sPathDialog1.Execute;sSkinManager1.SkinDirectory:=sPathDialog1.Path;
sl := TStringList.Create;
sSkinManager1.GetSkinNames(sl);
ComboBox1.Clear;
for i := 0 to sl.Count - 1 do begin
ComboBox1.Items.Add(sl[i]); end;
end;
procedure TF_utama.ComboBox1Change(Sender: TObject);
beginsSkinManager1.SkinName:=ComboBox1.Items[ComboBox1.Itemindex];
end;
en...
Koneksi Delphi 7 Dengan Mysql
Ini kode yang sederhana cukup untuk tambah,hapus dan simpan.
belum juga disediakan komponenen
Jika ingin mencari silahkan download di sini atau kunjungi sini Atau punya saya Data Ragiel
Langkah 1 (Pengkoneksian) :
► ZMySqlDatabase1 (Zeos Access)
Properties :
Database :Nama Database di Mysql
Host : localhost
Login : root
Connected : True
►ZMySqlTransact1 (Zeos Access)
Properties :
Database : ZMySqlDatabase1 / Didouble click
►ZMySqlTable1 (Zeos Access)
Properties :
Database : ZMySqlDatabase1 / Didouble click
TableName : Nama Table Di Database di Mysql
Transaction : ZMySqlTransact1/ Didouble click
Active : True
►DataSource1...
Membuat Mp3 dengan skin dan list
Ini kode saya buat bersama teman saya ,.
dan bagi yang ingin mengembangkannya,silahkan bisa di kembangkan,.,.
Mengunakan komponen skin manajer dan mengunakan data base notepad
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
ListBox1.AddItem(OpenDialog1.FileName,Sender);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
MediaPlayer1.Stop;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
sl:TStringList;
i:integer;
begin
sl := TStringList.Create;
sSkinManager1.GetSkinNames(sl);
ListBox2.Clear;
for i := 0 to sl.Count - 1 do begin
ListBox2.Items.Add(sl[i]);
end;
end;
procedure...