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 :
Rabu, 15 Februari 2012
Animasi Tulisan dengan delphi 7
Label:
Download,
Tutorial delphi
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,,,
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 :
Label:
Download,
Skin Delphi
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
Free Download Borland Delphi 7 + Serial Number
Part 1 |
Part 2 |
Part 3 |
Part 4 |
Label:
Download
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
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
Label:
Borland Delphi
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
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.
Delphi 2007 is non-breaking release meaning that DCU files from Delphi 2006 will work as-is.
Sumber : Link
Label:
Borland Delphi
Show/hide mouse cursor
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.
Label:
Tutorial delphi
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. ^_^
Label:
Tutorial delphi
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 :
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. ^_^
Label:
Tutorial delphi
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}
Label:
Tutorial delphi
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. ^_^
Label:
Tutorial delphi
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(
var
SystemTime: TSystemTime;
NewTime, NewDate: string;
begin
NewTime := '12:00:00';
NewDate := '01.01.2012';
DateTimeToSystemTime(StrToDa
SetLocalTime(SystemTime);
//
PostMessage(HWND_BROADCAST,
end;
Bila Telah Selesai RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba. ^_^
Label:
Tutorial delphi
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. ^_^
Label:
Tutorial delphi
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 :
begin
MoveWindow(FindWindowEx(Find
300, 0, 80, 22, true);
end;
Label:
Tutorial delphi
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. ^_^
Label:
Tutorial delphi
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;
var
SHEmptyRecycleBin: TSHEmptyRecycleBin;
LibHandle: THandle;
begin { EmptyRecycleBin }
LibHandle := LoadLibrary(PChar('Shell32.dll
if LibHandle <> 0 then @SHEmptyRecycleBin :=
GetProcAddress(LibHandle
else
begin
MessageDlg('Failed to load Shell32.dll.', mtError, [mbOK], 0);
Exit;
end;
if @SHEmptyRecycleBin <> nil then
SHEmptyRecycleBin(Applicat
nil,
SHERB_NO
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. ^_^
Label:
Tutorial delphi
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;
Label:
Tutorial delphi
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.
Label:
Tutorial delphi
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
Label:
Tutorial delphi
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 :
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
Label:
Tutorial delphi
Langganan:
Postingan (Atom)