Tutorial Delphi

// Password Char (*) InputBox
procedure TForm1.InputBoxSetPasswordChar(var Msg: TMessage);
var
  hInputForm, hEdit: HWND;
begin
  hInputForm := Screen.Forms[0].Handle;
  if (hInputForm <> 0) then
  begin
    hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil);
    SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0);
  end;
end;

procedure InputBoxSetPasswordChar(var Msg: TMessage); message InputBoxMessage;

const
InputBoxMessage = WM_USER + 200;

var
pwd : string;
begin
// Request Password
  PostMessage(Handle, InputBoxMessage, 0, 0);
  pwd := InputBox('Password Request', 'Masukan Password Aplikasi', '');
end;

if not ( key in['0'..'9', #8, #13]) then
key:= #0 ;

var
  TempFrm: TForm_Yang_Akan_di_Show;
begin
  TempFrm := TForm_Yang_Akan_di_Show.Create(nil);
  TempFrm.Show;
end;

var
  B: TButton;
  E : TEdit;
  i: Integer;
begin
  for i := 0 to 9 do
  begin
    B := TButton.Create(Self);
    E := TEdit.Create(self);
    B.Caption := Format('Button %d', [i]);
    E.Parent := Self;
    B.Parent := Self;
    E.Height := 33;
    B.Height := 23;
    B.Width := 100;
    E.Left := 130;
    B.Left := 10;
    E.Top := 10 + i * 20;
    B.Top := 10 + i * 25;
  end;
end;

// Cek Jika Inputan Masih Kosong
If (Edit1.Text='') or (Edit2.Text='') then
// Tampilkan Pesan Kesalahan
MessageDlg('Ops, Inputan Anda Masih Kosong !',mtWarning,[mbok],0) else
// Jika Inputan Tidak Kosong, Lakukan Aksi dibawah
begin
// Aksinya ada disini
end;

; isikan nomor port di bawah ini (lihat di device manager PORTS (COM & LPT))
port = com9: 

; isikan jenis connection di bawah ini (lihat di website gammu (step 2))
connection = at

[gammu]
# isikan no port di bawah ini
port = com9:
# isikan jenis connection di bawah ini
connection = at 

[smsd]
service = mysql
logfile = smsdlog
debuglevel = 0
phoneid = MyPhone1
commtimeout = 10
sendtimeout = 10
deliveryreport = no
PIN = 1234

# -----------------------------
# Konfigurasi koneksi ke MySQL
# -----------------------------
pc = localhost
# isikan user untuk akses ke MySQL
user = root
# isikan password user untuk akses ke MySQL
password = root
# isikan nama database untuk Gammu
database = gammu

User = User MySQL anda (root)
Password = Password MySQL anda
Protokol = MySQL
Port = 3306
Library Location = C:\xampp\mysql\lib\libmysql.dll (Jika anda menggunakan xampp)
Hostname = localhost
Database = Nama Database Anda
Connected = True

Connection = ZConnection
SQL = select * from nama_tabel_di_database_anda
Active = True

uses
  ... , shellapi; 

Const
WM_CAllBack = WM_USER;

type 
 .... 

procedure WM_CALLBACKPRO(var msg : TMessage); message wm_callBack;

  kecil : HICON;
  TrayIcon : TNotifyIconData;

implementation

Uses comobj;

procedure TForm1.WM_CALLBACKPRO(var msg : TMessage);
var
p : TPoint;
begin
case msg.LParam of
WM_LBUTTONDOWN :
begin
Shell_NotifyIcon(NIM_DELETE,@TrayIcon);
Form1.Visible := True;
end;
WM_RBUTTONDOWN :
begin
GetCursorPos(p);
PopupMenu1.Popup(p.X,p.Y);
end;
end;
end;

Form1.Visible := False;
Kecil := application.Icon.Handle;
Trayicon.cbSize := SizeOf(TNotifyIconData);
Trayicon.Wnd := handle;
Trayicon.szTip := 'Click Untuk Memunculkan';
Trayicon.uID := 1;
TrayIcon.hIcon := Kecil;
TrayIcon.uCallbackMessage := WM_CAllBack;
Trayicon.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
Shell_NotifyIcon(NIM_ADD,@trayicon);

Halt;

AdoKoneksi.Close;
AdoKoneksi.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0; ' +
                               'Password=""; Data Source= '+
                                ExtractFilePath(ParamStr(0))+'namadatabase.mdb; ' +
                               'Persist Security Info=True';
AdoKoneksi.Open;

ShellExecute(Handle, nil, PChar(Label1.Caption), nil, nil, SW_SHOWNORMAL);

var
Dir: string; 

Dir := 'D:\Buat Folder';
ForceDirectories(Dir);
if DirectoryExists(Dir) then
ShowMessage('Folder '+ Dir + ' Sudah di Buat !');

var
i : integer;
begin
for i := 1 to ZQuery2.RecordCount do
begin
ComboBox1.Items.Add(ZQuery2['Keterangan']);
ZQuery2.Next;
end;
end;

DBGrid1.Columns[2].PickList:=ComboBox1.Items;

   gridwarna : TDBGrid;
   warnarow : integer;

//Memberi Warna yang berbeda pada DBGrid
    gridwarna := sender as TDBGrid;
    warnarow := gridwarna.DataSource.DataSet.RecNo;
    if Odd(warnarow) then
    gridwarna.Canvas.Brush.Color := clyellow // Ganti Warnanya Sesuai Kebutuhan
    else
    gridwarna.Canvas.Brush.Color := clgreen; // Ganti Warnanya Sesuai Kebutuhan
    gridwarna.DefaultDrawColumnCell(Rect, DataCol, Column, State) ;