Sunday, September 25, 2016

Langsung saja ya gan
Buat Project aplikasi baru, untuk penyimpanan gunakan nama standarnya saja unit1, project1 dll
lalu letakkan sembarang komponen yang ada di Alpha Standart yang ane gunakan terlihat pada design form dibawah ini

Langsung ke Coding
tulis ini
procedure BuatConfigIni;
procedure BacaCOnfigIni;
letaknya seperti gambar dibawah

Lalu tuliskan variabel Lokasi bertipe String dan USES IniFiles;
yang letaknya seperti gambar dibawah ini





Lanjut buat isi procedurenya:

//isi procedure BuatConfigIni
procedure TForm1.BuatConfigIni;
var
  myINI : TINIFile;
begin
  Lokasi:='';
  GetDir(0,Lokasi);
  myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'config.ini');
  With myINI Do Begin
    //Buat Alamat Skinnya   
    WriteString('SKINS','AlamatSkin',Lokasi + '\Skins');

    if sSkinManager1.SkinName <> '' then WriteString('SKINS','NamaSkin',sSkinManager1.SkinName);

    //Buat posisi form terakhir
    WriteInteger('POSISI','FormTop',Top);
    WriteInteger('POSISI','FormLeft',Left);

    Free;
  End;//End With
end;

//isi procedure  BacaCOnfigIni
procedure TForm1.BacaCOnfigIni;
var
  myINI : TINIFile;
  s,sn : String;
begin
  Lokasi:='';
  GetDir(0,Lokasi);
  myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'config.ini');

  With sSkinManager1 Do Begin
    SkinDirectory:= Lokasi + '\Skins';
    SkinDirectory := myINI.ReadString('SKINS','AlamatSkin',s);
    //Showmessage(myINI.ReadString('SKINS','NamaSkin',sn));
    SkinName := myINI.ReadString('SKINS','NamaSkin',sn);        // Skin name is stored?

    //Cek AlamatSkin
    if SkinDirectory <> '' then begin
      Active:=True;
    end
    Else if SkinDirectory = '' then begin
      Active:=False;
    End; //end cek AlamatSkinnya ada

    //Cek Nama Skin
    if SkinName <> '' then begin
      Active:=True;
    end
    Else if SkinName = '' then begin
      SkinName:='black box'; //set sebagai default
      Active:=True;
    End;//end cek nama skinnya ada
    myINI.Free;
  ENd;//ENd With
end;

Sorot Form1nya pada Object Treeview
pada object inspector langsung saja ke eventnya gan klik2x secara cepat pada OnClose
isinya
//...........................................
  Sleep(1000);
  BuatConfigIni;
//...........................................

Pada Event OnShow
isinya
//...........................................
   BacaCOnfigIni;
 //...........................................

Cara mengganti skinnya lihat ss dibawah ini y gan
Nah tinggal agan klik tu skin lalu di close buka lagi pasti sama skinnya dengan yang dipilih sebelum close program ini

NB: Untuk pertama kali buka file exenya di kompi lain, biar aktif skinnya buka dulu lalu diclose setelah itu dibuka lagi ya gan..

Masih Bingung ya gan??
Sedot aja deh File Projek dan Exenya DISINI

Untuk cara menginstal componenya DISINI

Link Aplha Skins yang terkait :
  1. Cara  menginstal Alpha Skins 
  2. Menyimpan Aplha Skin yang Sedang Digunakan Pada Ini Files
  3. Alpha Skins v.11.18.D5-XE10.1 Full  
  4. Alpha Skins v.12.03.D5-XE10.1 Full
  5. Alpha Skins v.12.06.D5-XE10.2 Full

Leave a Reply

Budayakan Berkomentar ya Agan-Agan ^_^

Subscribe to Posts | Subscribe to Comments

Welcome to My Blog

PAPAN PENGUMUMAN

Segala file yang dibagikan pada blog ini berformat 7z disarankan mengextrak filenya menggunakan aplikasi 7-zip agar tidak terjadinya file korrup.

Server Kutucugum, Partagora dan Copiapop Sudah Dihapus. Server 1 Sudah Suspend Sedang membeckup data yang masih ada ke gdrive unlimiteed.

Link Openload.co diblokir TELKOM solusi gunakan domain https://oload.info/

Grup Delphi Via Telegram
Untuk Kalian yang ingin Belajar Delphi dan Khususnya tinggal di Pekanbaru silahkan Gabung Ke Grup Telegram Delphi Pekanbaru. Adminnya Semua Admin Blog ini Link TKP : https://t.me/delphipekanbaru

Last Update

Butuh Jasa Pembuatan Program Aplikasi Tugas Akhir, Skripsi Atau Resmi?

Popular Post

- Copyright © Delphi Anime Lover | Riko Software -Robotic Notes- Powered by Blogger - Designed by Johanes Djogan -