Pages

Subscribe:

About

Blog Ini membahas Tentang Delphi dari Tutorial, Source code, hingga Programming *Exe. Bersumber dari http://olvandra.blogspot.com

Rabu, 15 Februari 2012

Animasi Tulisan dengan delphi 7

Kali ini tutorial ANimasi Tulisan Berjalan dengan Delphi, dengan bergerak kekiri dan kekanan, kayak mantul gitu.... aplikasi ini menggunakan borland Delphi 7, dengan komponen :

1. TTimer
2. TLabel
3. dan TPanel

Aplikasi ini cukup sederhana dengan code program yang sangat simple dan mudah untuk digunakan dalam menambah atau mempercantik tampilan di FORM delphi...
langsung ke TKP aja ya....

Pertama :

Buat sebuah form di delphi
masukan komnen seperti diatas ke dalam form

Seperti screenshot dibawah ini :







Cara Install Alphacontrol (Alphaskin) di Delphi 7


Sesuai permintaan Posting Kali ini telah saya Update secara detail install alphacontrol pada delphi, Delphi memiliki banyak komponen skin tambahan yang bisa kita pakai untuk membuat applikasi yang kita buat menjadi lebih menarik, salah satunya adalah Alphaskins Form. Alphaskins Form dari alphacontrol memiliki 2 versi, yaitu versi lite yang merupakan versi gratisan dan versi Premium/trial.
Premium memiliki beberapa komponen visual tambahan yang tidak ada pada versi lite, namun versi lite saja sudah cukup untuk membuat tampilan aplikasi yang kita buat menjadi lebih menarik.

Free tapi Full VERSI lebih baik alias GRATIS+PREMIUM 

Langsung aja ya,,,


Untuk Alphacontrol silahkan download dibawah ini :


Untuk cara Installasi Alphacontol (alphaskin) silahkan Download Document Ms.Word dibawah ini

 

Untuk Info Component sekilas Tentang alphaskin saya tampilkan melalui Delphi Sebagai Berikut :



Borland Delphi 7

Delphi 7, dirilis pada bulan Agustus 2002, menjadi versi standar yang digunakan oleh pengembang Delphi lebih daripada versi tunggal lainnya. Ini adalah salah satu IDE yang paling sukses dibuat oleh Borland karena, kecepatan stabilitas dan persyaratan perangkat keras rendah, dan tetap digunakan aktif sebagai tahun 2011. Delphi 7 menambahkan dukungan untuk Windows XP Tema, dan menambahkan lebih banyak dukungan untuk membangun web aplikasi. Ini adalah versi terakhir dari Delphi yang dapat digunakan tanpa aktivasi perangkat lunak.

Free Download Borland Delphi 7   + Serial Number


Part 1
Part 2
Part 3
Part 4

Embarcadero Delphi

Embarcadero Delphi

Delphi adalah sebuah IDE Compiler untuk bahasa pemrograman Pascal dan lingkungan pengembangan perangkat lunak. Produk ini dikembangkan oleh CodeGear sebagai divisi pengembangan perangkat lunak milik Embarcadero, divisi tersebut sebelumnya adalah milik Borland. Bahasa Delphi, atau dikenal pula sebagai object pascal (pascal dengan ekstensi pemrograman berorientasi objek (PBO/OOP)) pada mulanya ditujukan hanya untuk Microsoft Windows, namun saat ini telah mampu digunakan untuk mengembangkan aplikasi untuk Linux dan Microsoft .NET framework (lihat di bawah). Dengan menggunakan Free Pascal yang merupakan proyek opensource, bahasa ini dapat pula digunakan untuk membuat program yang berjalan di sistem operasi Mac OS X dan Windows CE

Pada tanggal 8 Februari 2006, Borland mengumumkan akan melepas seluruh jajaran produk pengembangan aplikasi komputernya termasuk di antaranya Delphi, untuk itulah Borland membentuk perusahaan baru dengan nama CodeGear sehingga terpisah dari Borland . Saat ini Delphi menjadi bagian dari jajaran IDE milik Embarcadero Technologies setelah Embarcadero Technologies mengakuisisi CodeGear. Hal ini disebabkan karena kerugian yang terus menerus selama 2006 rugi bersih sebesar $53.1 juta, 2007 rugi bersih $61 juta. Sehingga pada tahun 2008 saat CodeGear menderita rugi bersih $22.3 maka CodeGear dijual ke Embarcadero seharga $23 juta untuk menutupi rugi bersih ini

Delphi Compiler Version Directives



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}
 
The DefName presents the so-called conditional symbol. Delphi defines several standard conditional symbols. In the "code" above, if the DefName is defined the code above $Else gets compiled.

Delphi Version Symbols

A common use for the $IfDef directive is to test the version of the Delphi compiler. The following list indicates the symbols to check when compiling conditionally for a particular version of the Delphi compiler:
  • SYMBOL - COMPILER VERSION
  • VER80 - Delphi 1
  • VER90 - Delphi 2
  • VER100 - Delphi 3
  • VER120 - Delphi 4
  • VER130 - Delphi 5
  • VER140 - Delphi 6
  • VER150 - Delphi 7
  • VER160 - Delphi 8
  • VER170 - Delphi 2005
  • VER180 - Delphi 2006
  • VER180 - Delphi 2007
  • VER185 - Delphi 2007
  • VER200 - Delphi 2009
  • VER210 - Delphi 2010
  • WIN32 - Indicates that the operating environment is the Win32 API.
  • LINUX - Indicates that the operating environment is Linux
  • MSWINDOWS - Indicates that the operating environment is the MS Windows/li]
  • CONSOLE - Indicates that an application is being compiled as a console application
By knowing the above symbols it is possible to write code which works with several versions of Delphi by using compiler directives to compile appropriate source code for each version.
Note: symbol VER185, for example, is used to indicate Delphi 2007 compiler or an earlier version.

Using "VER" symbols

It's quite usual (and desirable) for each new Delphi version to add several new RTL routines to the language.
For example, the IncludeTrailingBackslash function, introduced in Delphi 5, adds '\' to the end of a string if it is not already there. In the Delphi MP3 project, I have used this function and several readers have compained that they can't compile the project - they have some Delphi version prior to Delphi 5.
One way to solve this problem is to create your own version of this routine - the AddLastBackSlash function. If the project should be compiled on Delphi 5, the IncludeTrailingBackslash is called. If some of the previous Delphi versions are used than we simulate the IncludeTrailingBackslash function.
It could look something like:
 function AddLastBackSlash(str: string) : string;
 begin
 {$IFDEF VER130}
  Result:=IncludeTrailingBackslash(str) ;
 {$ELSE}
  if Copy(str, Length(str), 1) = '\' then
    Result := str
  else
    Result := str + '\';
 {$ENDIF}
 end;
 
When you call the AddLastBackSlash function Delphi figures out which portion of the function should be used and the other part is simply skipped.

Delphi 2008?

Delphi 2007 uses VER180 in order to maintain non-breaking compatability with Delphi 2006 and then ads VER185 in order for development that specifically needs to target Delphi 2007 for whatever reason. Note: any time the interface of a unit changes the code that uses that unit has to be re-compiled.
Delphi 2007 is non-breaking release meaning that DCU files from Delphi 2006 will work as-is.

Sumber : Link

Show/hide mouse cursor

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.

Ignore Ctrl+V keys di TMemo


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.  ^_^

Paste or copy the content of Tmemo


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.  ^_^

Trap mouse events outside of my application






 

 

"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;


implementation

{$R *.dfm}

Start the screensaver


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.  ^_^

Mengganti System Time dan Tanggal Di Windows (Delphi)

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.  ^_^

Minimize all windows (Delphi)


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 Ukuran Button START Windows (Delphi)


Ukuran Button Windows dapat diganti dengan menggunakan C0d3 yang Simple pada Borland 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);
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.  ^_^

Standby mode di Windows (Delphi)

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.  ^_^

Mengosongkan recycle bin


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;



var
  SHEmptyRecycleBin: TSHEmptyRecycleBin;
  LibHandle: THandle;
begin  { EmptyRecycleBin }
  LibHandle := LoadLibrary(PChar('Shell32.dll
'));
  if LibHandle <> 0 then @SHEmptyRecycleBin :=
      GetProcAddress(LibHandle, 'SHEmptyRecycleBinA')
  else
  begin

    MessageDlg('Failed to load Shell32.dll.', mtError, [mbOK], 0);
    Exit;
  end;
  if @SHEmptyRecycleBin <> nil then
    SHEmptyRecycleBin(Application.Handle,
                      nil,
                      SHERB_NOCONFIRMATION or SHERB_NOPROGRESSUI or SHERB_NOSOUND);
  FreeLibrary(LibHandle); @SHEmptyRecycleBin := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

  EmptyRecycleBin;
end;

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

Memanggil Program Luar Dari Delphi


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.  ^_^

Selasa, 14 Februari 2012

Menampilkan Pesan Sebelum Menutup semua (Delphi 7)

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.






Mengganti Warna label Lewat sColorBox (Delphi 7)

Tutorial Delphi Kali ini membahas tentang Mengganti Warna label Lewat sColorBox , dengan menggunakan Component Alphaskin sebagai Skin delphi,  free download tutorial delphi nya dibawah ini :

Pass rar : andrajustone









Nilai Ribuan Ke Currency (Delphi7)

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



Tutorialnya :
Pada  Event = Edit1.Onchange, Isi code seperti berikut
 

Visitor