Home » , » Refresh desktop (tutorial Delphi7)

Refresh desktop (tutorial Delphi7)


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;

0 komentar:

Posting Komentar