Delphi

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;

Memindah Form Yang 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;

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;

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;

Membuat Teks Icon Desktop Yang Transparan

Tips delphi berikut ini adalah untuk membuat teks icon desktop yang transparan. uses Commctrl; var hLV : THandle; procedure TForm1.GetDesktopListViewHandle; var s1: string; begin hLV := FindWindow('ProgMan', nil); hLV := GetWindow(hLV, GW_CHILD); hLV := GetWindow(hLV, GW_CHILD); SetLength(s1, 40); GetClassName(hLV, PChar(s1), 39); if PChar(s1) <> 'SysListView32' then ShowMessage('Failed'); end; procedure TForm1.Button1Click(Sender: TObject); var xColor : TColor; be...

Tips Seputar Hint

Hint adalah teks yang muncul saat pointer mouse melewati suatu obyek (bi sa berupa button, form, list box, dll). Defaultnya hint tersebut tampil selama 2,5 detik. Tapi dengan menambahkan sedikit kode Delphi di bawah ini, Anda dapat mengganti waktu tersebut, bisa lebih cepat atau lebih lama. Mengganti lama tampilnya hint procedure TForm1.Button1Click(Sender: TObject); begin //default = 2500 ms = 2,5 detik Application.HintHidePause := 10000 //10 detik; end; Membuat hint dua baris : B...

Membuat Splash Screen

Splash screen merupakan tampilan yang kita lihat pertama kali waktu kita menjalankan sebuah aplikasi. Splash screen ini biasanya ditampilkan untuk mengurangi kejenuhan user sewaktu program masih dalam tahap inisialisasi. Untuk membuat splash scren tersebut caranya sebagai berikut : Bikin dulu form utamanya. Tambahkan form yang akan digunakan sebagai splash screen (dari menu File, pilih New Form). Beri nama form tersebut dengan FrmSplash. Tambahkan komponen Timer (terletak pada tab W...

Mengecek Disk Pada Disk Drive

Apabila Anda tidak ingin melihat pesan "A:\ is not accessible. The Device not Ready" saat Anda mengakses disk drive yang kosong (tidak terdapat disket pada disk drive), gunakan kode berikut ini : procedure TForm1.Button1click(Sender : TObject); begin if not DirectoryExists('a:\') then MessageDlg('Disk drive kosong',mtError,[mbOk],0) else {jika disk drive tidak kosong maka ......} end; Maka saat user mengakses disk drive yang kosong, akan muncul pesan yg lebih mudah d...
Page 3 of 41234
Artikel Lainnyaclose