Minimize ,close, maximize

// On click (Pada saat di klik)

// ====== Minimize ... minimal
Begin
form1.windowstate :=  wsminimize ;
end;



// ====== Maximized ... Maksimal
Begin
form1.windowstate :=  wsminimize ;
end;



// ====== normal ... biasa

Begin
form1.windowstate :=  wsminimize ;
end;

// windowstate (window + state) atau status Jendela

Menyembunyikan Form

//Menyembunyikan Form

{

Untuk Menyembunyikan Form , yaitu dengan cara masuk kedalam Project manager yang berada sebelah kanan

Setelah itu Klik kanan pada Project ...
Setelah itu Klik (ViewSource) ...
Setelah Source Pada Project Muncul ...
Seperti Dibawah ini


===================================
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
=====================================

List Pada Code diatas sesuai dengan berapa form yang anda buat

Sekarang Anda Tinggal Mengganti Kode True menjadi false ....
Seperti dibawah ini
dan tambahkan kode (//) pada application.createform ...
}




uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := false;
//Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Menngganti Icon

//Mengubah Icon saat Program berjalan

begin
application.icon.loadfromfile('D:\namaicon.ico') ;
end;

// loadfromfile = ambil data dari ('Ini tempat Icon')

Menggabungkan Form

// Menggabungkan Beberapa Form Kedalam 1 Form ...

// Pertama tama Buat Dulu 3 Buah Form dan 1 Button ..
// Dimana ada form1 ,form2 , dan form3 ...


// Button1 dimasukkan di dalam form1
// Masukkan Kode Kedalam Button on click seperti ini


Begin

Form2.parent := form1 ;
form3.parent := form1 ;

Form2.align := alleft ;
form2.visible := true ;
form3.visible := true ;

end;

Mengatur Posisi Cursor

//Mengatur Posisi Cursor ...

// Buat 2 buah edit dan 1 buah button ...
//dan masukkan kode di button seperti dibawah ini


Var x,y : integer ;
Begin
x := strtoint(edit1.text) ;
y := strtoint(edit2.text) ;

SetCursorPos(x,y) ;
end;

Mengambil Posisi Cursor

//Mengambil Posisi Cursor ...

//Masukkan Kode kedalam Komponen timer .. dan buat juga 2 buah edit ....


procedure TForm1.Timer1Timer(Sender: TObject);
Var x : TPoint;
begin
Edit1.Text := IntToStr(Mouse.CursorPos.X) ;
Edit2.Text := IntToStr(Mouse.CursorPos.y) ;
end;


{
Mouse.cursorPos.X ... adalah Jarak Kiri...
Mouse.cursorPos.Y ... adalah Jarak Atas...
}

Mengambil Lokasi Aplikasi

//Mengambil Lokasi Aplikasi ...

Var a:string ;
Begin
a := extractfilepath(application.exename);
Showmessage(a);
end;


{
: (itu)
:= (adalah)
; (istirahat)
showmessage (tampilkan pesan)
extractfilepath (ekstrak data lokasi)

}

Mengambil Lebar TInggi Dekstop

//Mengambil Lebar /Tinggi Pada Screen Atau dekstop ...

//Bisa Dipasang Dimana Saja..
//Saya pasang onclick button


Var Tinggi,Lebar : string ;
Begin
Tinggi := inttostr(screen.height);
Lebar  := inttostr(screen.Width);
Showmessage('Lebar = ' + lebar + ' Tinggi = ' + tinggi) ;
End;

Membuat Warna Transparant

//Membuat Warna Transparant ...

//Maksudnya , Kita memilih warna tertentu yang ingin dihilangkan ...

//contohnya warnah merah .
//Jadi saya memmbuat warna merah jadi trasparant ...
//Masukkan kode dibawah ini di form create ...

Begin

form1.color:=clred;
form1.transparentcolorvalue:=clred;
form1.transparentcolor:=true;
end;

Membuat Program Masa Aktif

// Membuat Program Masa aktif

// Program masa aktif adalah masa aktif yang diambil dari tanggal sekarang
// dikurangi dengan tanggal yang sudah ditentukan ...

// Seperti dibawah ini masukkan kode di event create ..



procedure TForm1.FormCreate(Sender: TObject);
Var
a,b :tdate ;     c:real;
begin

a := StrToDate(FormatDateTime('mm/dd/yyyy' ,now)) ;  
b := Strtodate('11/23/2015');
c := b - a;

if c<0 then  begin

Showmessage('Masa Aktif Telah Habis');
close ;

end else showmessage('Masa aktif anda Sisa ' + floattostr(c) );

end;


// variabel a adalah data yang diambil dari masa sekarang ...
// variabel b adalah data yang ditentukan ...
// sedangkan c hasil kurang dari data yang ditentukan - data sekarang

Membuat latar Belakang Dengan gambar

//Membuat latar Belakang Dengan gambar , tanpa menggunakan komponen

//Masukkan Kode Kedalam Form event onpaint ...


procedure TForm1.FormPaint(Sender: TObject);
var a:TBitmap ;
begin
a:=TBitmap.Create ;
a.LoadFromFile('C:\Users\Indra\Desktop\foto.bmp') ;
Canvas.Draw(0,0,a);
end;


//Untuk Latar Belakang form harus menggunakan extensi Bitmap (bmp) ...
//adapun untuk berekstensi Jpg seperti dibawah ini
//Sebelumnya tambahkan (JPEG) di uses , berada paling atas code ...


procedure TForm1.FormPaint(Sender: TObject);
var a:Tpicture ;
begin
a:=TPicture.Create(nil) ;
a.LoadFromFile('C:\Users\Indra\Desktop\foto.jpg') ;
a.parent := form1 ;
a.visible:=true ;
end;

Membuat Hint Aplikasi

//Membuat Hint .. atau Pesan yang tampil pada saat kita diamkan cursor di form ...

//Penggunaan Hint dapat di gunakan di hampir semua Komponen

//Seperti dibawah ini ...
//Buat Komponen button dan edit ...
//Masukkan kode dibawah ini di form event CREATE



Begin

button1.hint := 'Ini adalah button 1' ;
edit1.hint := 'Ini adalah edit1' ;
form1.hint := 'Ini adalah form1' ;

button1.showhint := true ;
edit1.showhint := true ;
form1.showhint := true ;

end;

Membuat Form Transparant

//Membuat Form Transparant ...

//Buat Dulu 1 Buah Button dan 1 buah edit
//Masukkan kode ini di button1

Begin
Form1.alphablend:=true;
Form1.alphablendvalue :=  strtoint(edit1.text);
end;

// Batas Transparant Dimulai dari 0 - 255 ...


// Penggunaan Transparant Hanya Untuk Form ...

Membuat Form Berjalan

//Membuat Form Berjalan

//Masukkan 2 buah button ...


//Masukkan kode ini di button 1 ;
Begin
while form1.left > 0 do begin
application.processmessages;
form1.left := form1.left -1 ;
end;
end;


//Kemudian Di button2

Begin
while form1.left < (screen.width -form1.width ) do begin
application.processmessages;
form1.left := form1.left +1 ;
end;
end;


//button 1 ...form Berjalan Ke kiri sampai mentok
//button 2 ...form Berjalan Ke kanan sampai mentok

Membuat aplikasi teratas

//Membuat aplikasi teratas ... Atau always on top ...

//pasang di on create form ... berada pada event ,, samping properties form

Begin
with Form1 do
Begin
SetWindowPos(Handle, HWND_TOPMOST, 0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);
end;
end;


//Bisa Juga
Begin
form1.formstyle := fsStayOnTop;           //fsStayOnTop , FsNormal
end;