Refresh desktop

Jumat, 30 Januari 2009
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;

3 komentar:

rofa_blog mengatakan...

Makasih y kak tuk codingnya...!!, bermanfaat sekali bagi saya...!!?.
@_n Thank'z....
By :_Rofa

Agan Lab mengatakan...

wew..kk ini lumayan ni code scriptnya buat nyicipin test program baruku...jadi gk sabar pengen ngulik lag delphi nichhh..jhahaha!

Agan Lab mengatakan...

wew lumayan ni semua tipsnya dari awal sampe akhir menegangkan...?jadi pengen ngulik lagi delphi nichhh gak sabar pengen ngecicipi lg...

Pengikut