Archive for Februari 2012

KOMPONENT CHART DI QReport

Posted on Rabu, 29 Februari 2012 by






Pada menu IDE Delphi pergi ke:

1 - "Install Paket".
2 - Tekan tombol "Add".
3 - Pergi ke direktori ini "C: \ Program Files \ Borland \ Delphi7 \ Bin".
4 - Pilih "dcltqr70.bpl" dan tekan "Open" tombol.
5 - Tekan tombol "OK".

Sekarang Anda dapat melihat komponen grafik pada tab QReport

ScreenShot :

 

Menampilkan Tipe Data Currency dalam Grid dgn tanda titik / koma

by


Cara Menampilkan Tipe Data Currency dalam Grid dgn tanda titik / koma dalam Pemprogram Delphi,  dengan menggunakan Perintah Merubah sistem properties di data datamodul1.  Berikut Contoh code Programnya :

mengisi angka pembayaran pada DB grid dengan titik atau koma bisa dilakukan dengan 2 cara yaitu :


cara pertama :

// letakan pada data module
 ============== Begin Code ==============

function SetFieldDisplayFormat(const ADataset: TDataset; const AFieldName: string): Boolean;
  var AField: TField;
  begin
  AField:= ADataset.FindField(AFieldName);

  Result:= (AField <> nil) and (AField is TNumericField);
  if Result then
  TNumericField(AField).DisplayFormat:= '###,##0.00';
  end;
============== End Code ===============

Baca selengkapnya »

Perhatian !!!

Posted on Kamis, 23 Februari 2012 by

PERHATIAN !!!


WOW !!! Mungkin semua telah tau dimana Akun File Hosting telah di timpa pasal demi pasal pelanggaran dari FBI, namun ntah apa yang akan terjadi pada akun File hosting mediafire dan 4shared atau yang lainnya setelah Megaupload ditutup Total. berita ini telah dipublikasikan di media pada bulan januari...

Saya segenap admin mohon maaf yang sebesar-besarnya apabila dalam browser dan dowload di link 4shared dan mediafire dalam blog ini tidak dapat diakses. dikarenakan dalam masa perbaikan link file hosting.

Sekiranya mungkin bisa untuk diperbaiki nantinya. sementara mediafire bisa diakses namun tidak tau untuk kedepannya sedangkan akun 4shared saat ini yang ingin mendownload silahkan memiliki akun 4shared terlebih dahulu untuk pengambilan data link download yang ada di blog ini. dikarenakan 4shared telah menutup pengguna bebas atau User tanpa Identitas dalam pengambilan data dalam database nya dalam artian harus SingUP dulu atau DAFTAR.

On time upload dan perubahan File Hosting dalam blog masih dalam perbaikan, dan mungkin akan ada perubahan jalur hostingnya,

Oke agan-agan sekalian sekian Pemberitahuan ini, sekali lagi kami mohon maaf atas ketidak nyamanan ini..

Admin

"andrajustone"


Memanggil Program Luar Dari Delphi

Posted on Rabu, 15 Februari 2012 by


Cara Memanggil Program dalam Pemprogram Delphi, misalnya memangil Scanner, Word, Kalkulator, dll, sebagai contoh code program dibawah ini saya memanggil Kalkulator yang ada di windows dengan menggunakan Perintah di satu tombol TButton (Button1) masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh code Programnya :

procedure TForm1.Button1Click(Sender: TObject);
begin
   WinExec('calc.exe',SW_SHOWNORMAL);; // Intinya "calc.exe " memanggil nama dari Exe tersebut dari delphi.

end;
 
Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^

Mengosongkan recycle bin

by


Cara mengosongkan Recycle Bin dari Delphi bisa di buat dengan menggunakan Perintah di satu tombol TButton (Button1) masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh code Programnya :



procedure EmptyRecycleBin;
const
  SHERB_NOCONFIRMATION = $00000001;
  SHERB_NOPROGRESSUI = $00000002;
  SHERB_NOSOUND = $00000004;
type
  TSHEmptyRecycleBin = function(Wnd: HWND;
                                pszRootPath: PChar;
                                dwFlags: DWORD): HRESULT;  stdcall;

Baca selengkapnya »

Standby mode di Windows (Delphi)

by

Mesetting Mode StandBy Windows di Borland Delphi 7 dengan menggunakan Perintah di satu tombol TButton (Button1) masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh code Programnya :


procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 1);
end;

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^

Mengganti Ukuran Button START Windows (Delphi)

by


Ukuran Button Windows dapat diganti dengan menggunakan C0d3 yang Simple pada Borland Delphi, engan menggunakan Perintah di satu tombol TButton (Button1) masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh code Programnya :

procedure TForm1.Button1Click(Sender: TObject);
begin
  MoveWindow(FindWindowEx(Find
Window('Shell_TrayWnd', nil), 0, 'Button', nil),
             300, 0, 80, 22, true);
end;
 
Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^

Minimize all windows (Delphi)

by


System yang meminimize Tab panel pada TaksBar Windows dengan system yang diatur dalam code Program pada delphi dengan menggunakan Perintah di satu tombol TButton (Button1) masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh code Programnya :


procedure TForm1.Button1Click(Sender: TObject);
var
  h: HWnd;
begin
  h := Handle;
  while h > 0 do
  begin
    if IsWindowVisible(h) then
      PostMessage(h, WM_SYSCOMMAND, SC_MINIMIZE, 0);
    h := GetNextWindow(h, GW_HWNDNEXT);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Keybd_event(VK_LWIN, 0, 0, 0);
  Keybd_event(Byte('M'), 0, 0, 0);
  Keybd_event(Byte('M'), 0, KEYEVENTF_KEYUP, 0);
  Keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
end;

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^

Mengganti System Time dan Tanggal Di Windows (Delphi)

by

Dalam Windows Merubah SETTING Tanggal Jam pada System di Control Panel, coba kita buat dengan cara men SETTING dari Program Delphi Mungkin bisa berguna dalam Kombinasi Pembuatan program di Borland Delphi. dengan mengubah system berdasarkan format yang kita inginkan, contoh source code dibawah ini dengan mengubah settingan dari format AM PM menjadi Format 24 Jam Asumsinya ( 12 AM = 00.00) english to Indonesia. Program Delphi dengan menggunakan Perintah di satu tombol TButton (Button1) masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh code Programnya :


procedure TForm1.Button1Click(Sender: TObject);
var
  SystemTime: TSystemTime;
  NewTime, NewDate: string;
begin
  NewTime := '12:00:00';
  NewDate := '01.01.2012';
  DateTimeToSystemTime(StrToDate(NewDate) + StrToTime(NewTime), SystemTime);
  SetLocalTime(SystemTime);
  // Tell windows, that the Time changed!
  PostMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0); // *
end;

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^

Start the screensaver

by


Code Program dengan Memanggil Perintah Screensaver  dari Program Delphi dengan menggunakan Perintah di satu tombol TButton (Button1) masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh Programnya :

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
end;

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^

Trap mouse events outside of my application

by




 "Trap mouse events outside of my application"

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, AppEvnts, StdCtrls;

type
  TForm1 = class(TForm)
    ApplicationEvents1: TApplicationEvents;
    Button_StartJour: TButton;
    Button_StopJour: TButton;
    ListBox1: TListBox;
    procedure ApplicationEvents1Message(var Msg: tagMSG;
      var Handled: Boolean);
    procedure Button_StartJourClick(Sender: TObject);
    procedure Button_StopJourClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    FHookStarted : Boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

Baca selengkapnya »

Paste or copy the content of Tmemo

by


Kembali Ke Posting Sebelumnya Pada Ignore Ctrl+V keys in Memo maka kali ini saya Bahas Mengenai Cara COpy dan PAste Di TMemo. Dalam suatu pembuatan program dalam Borland Delphi, berikut ini menggunakan TMemo (Memo1)  dengan 2 (dua) TButton (Button1 dan Button2) dan masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh Programnya :

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.SelectAll;
  Memo1.CopyToClipboard;
  Memo1.Clear;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.PasteFromClipboard;
end;

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^

Ignore Ctrl+V keys di TMemo

by


Ignore Ctrl+V keys in Memo, mungkin bisa di berguna dalam suatu pembuatan program dalam Borland Delphi, berikut ini menggunakan TMemo (Memo1) dan masukan COde Program dalam Properties Event OnKeyDown.
Berikut Contoh COde Programnya :

Prevent users from pasting text in your Memo.
// Tambahkan Pada Uses
uses Clipbrd;
...

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((Key=Ord('V'))and(ssCtrl in Shift)) then
  begin
    Clipboard.Clear;
    Memo1.SelText:='Delphi http://olvandra.blogspot.com';
    Key:=0;
  end;
end;

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^

Show/hide mouse cursor

by



Cara memunculkan dan menyembunyikan Cursor Mouse di Form Delphi di saat RUN, begini Caranya, Di Form letakkan Dua Tbutton ( Button1 dan Button2), kemudian isikan code Programnya sebagai Berikut :


procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowCursor(False);  // Hide cursor
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowCursor(True);  // Show cursor
end;
Nah.. Bila Telah Selesai Selahkan RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.

Delphi Compiler Version Directives

by



Preparing to code with no barriers. See how to overcome the compiler version problem: compiling Delphi code for various Delphi versions.
If you plan on writing Delphi code that should work with several version of the Delphi compiler you need to know under which versions your code gets compiled.
Suppose you are writing your own (commercial) custom component. Users of your component might have different Delphi versions than you have. If they try to recompile the component's code (your code) - they might be in trouble! What if you were using default parameters in your functions and the user has Delphi 3?

Compiler directive: $IfDef

Compiler directives are special-syntax comments we can use to control the features of the Delphi compiler. The Delphi compiler has three types of directives: switch directives, parameter directives and conditional directives. Conditional compilation lets us selectively compile parts of a source code depending on which conditions are set.
The $IfDef compiler directive starts a conditional compilation section.
The syntax looks like: 
 {$IfDef DefName}
 ...
 {$Else}
 ...
 {$EndIf}

Baca selengkapnya »

Nilai Ribuan Ke Currency (Delphi7)

Posted on Selasa, 07 Februari 2012 by

Pada banyak pembuatan aplikasi yang di buat, setiap komponen memiliki Properties nya masing-masing,
contohnya : Tlabel- Caption, TEdit-Text, TPanel-Caption, TMemo-Text, dll. Inti dari semua contoh tersebut kita dapat memanggil suatu komponen dengan mengganti isi dalam suatu caption atau Text dengan mengconversi dari tipe data STRING, INTEGER, REAL, CURRENCY, Dll..

Dalam kasus ini saya bahas mengenai cara Membuat Bilangan bertitik pada TEDIT, Seperti yang banyak kita lihat pada APLIKASI-APLIKASI Swalayan dan lain-lain yang bersifat UANG.

dalam suatu penyimpanan Database tidak bisa membaca tipe data string yang di masukkan ke currency.
Contoh :
  • STRING 1.000.000   <<< TEDIT
  • CURRENCY 1000000 <<<< DATABASE
dalam suatu upaya kita harus merubah STRING KE CURRENCY agar data dapat di proses. Dengan mengubah FormatCurr(###.###) atau format lain.

SELANJUTNYA ke pokok permasalahan :

contoh tampilan dibawah ini adalah  menjelaskan tipe data yang bersifat STRING DAN CURRENCY

  
 



Baca selengkapnya »

Mengganti Warna label Lewat sColorBox (Delphi 7)

by

Menampilkan Pesan Sebelum Menutup semua (Delphi 7)

by

Tutorial Delphi kali ini yaitu Menampilkan Pesan Sebelum Menutup semua , dimana kita menutup aplikasi dengan Perintah "Close" atau application.Terminate". dalam bentuk program tersebut kita bisa menutup 1 form atau menutup semua form (menSTOP Program yang sedang Run) dengan memunculkan Pesan terlebih dahulu sebelum Form tersebut  DI TUTUP.








Via mediafire


Via 4shared

Memanggil Form ke 2

Posted on Minggu, 05 Februari 2012 by

Cara Menampilkan Form delphi 1 ke form delphi ke 2, Tutorial Delphi Kali ini dalam asumsi terdapat 2 Form yang berbeda. dengan Perintah " SHOWMODAL" melalui TMainMenu pada komponent delphi.





Dibawah ini souceCode untuk tampilan sederhana nya.

Note :
Program ini Bersifat dasar bagi dalam pembuatan suatu program yg menggunakan Borland Delphi 7