Refresh desktop

Refresh desktop
Di bawah ini adalah kode yang dapat digunakan untuk merefresh desktop tanpa harus menekan F5.

procedure TForm1.Button2Click(Sender: TObject); 
begin
  SendMessage(FindWindow('Progman','Program   Manager'),
 WM_COMMAND,$A065,0);
  winexec(Pchar('rundll32 user,repaintscreen'),sw_Show);
end; 

Menyembunyikan caption bar
Untuk menyembunyikan caption bar, tambahkan kode pada event onCreate.

procedure TForm1.FormCreate(Sender:TObject); 
begin 

SetWindowLong(Handle,gwl_style,GetWindowLong(handle,gwl_style)
and NOT ws_caption); 
ClientHeight:=Height; 
Refresh; 

end; 

Memindah form yg tidak mempunyai caption bar
Untuk memindah form yang tidak mempunyai caption bar,
tambahkan kode berikut pada event onMouseDown.

procedure TForm1.FormMouseDown(Sender: TObject; Button:
TMouseButton; Shift:
TShiftState; X, Y: Integer); 
begin 

ReleaseCapture; 
SendMessage(Form1.Handle, wm_SysCommand,$f012,0); 

end;

Membuka Control Panel
Gunakan kode di bawah ini untuk membuka Control Panel dari program
Delphi Anda.
Jangan lupa tampahkan ShellApi pada bagian uses :

procedure TForm1.Buton1Click(Sender : TObject); 
begin 
     ShellExecute(Handle,'Open','control', 
     nil,nil,SW_SHOWNORMAL); 
end; 

Memberi warna record aktif pada TDBGrid
Mungkin Anda ingin memberi warna record aktif pada TDBGrid dengan
warna yang lain (tidak sama dengan warna record yang tidak atif).
Untuk itu tambahkan kode berikut ini pada even DBGrid.OnDrawColumnCell :

type
    TCustomDBGridCracker = class(TCustomDBGrid); 
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; 
const Rect: TRect; DataCol: Integer; Column: TColumn; 
State: TGridDrawState); 

begin 
     with TCustomDBGridCracker(Sender) do 
     if DataLink.ActiveRecord = Row - 1 then 
          Canvas.Brush.Color := clRed 
     else 
          Canvas.Brush.Color := clWhite; 
     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column,      State); 
end;