Program Dasar Delphi

Program Dasar Delphi

Adacara yang lebih muda untuk meruba warna form pada program Delphi yaitu dengan mengunakan palet warna, pada program berikut ini hanya menggunakan satu tombol yang dipergunajakan untuk menjalankan Colordialog. Adapun caranya adalah sebagai berikut :
1. Buatlah sebuah form seperti pada gambar 15.pada progrsm ini kita akan menggunakan fungsi colordialog yang bisa diambil pada component pallete dialogs.

Gambar 15. Desain form

2. Setelah selesai mendesain form, doble click tombol Uba Warna Form dan masukan code berikut pada bidang code editor :

procedure TForm1.Button1Click(Sender: TObject);
begin
If colordialog1.Execute then
Form1.Color := Colordialog1.Color;
end;

3. Setelah selesai jalankan program dengan menekan F9 pada keyboard atau dengan meclik tombol Run pada panel.

Kita bisa memprcantik tampilan program yang kita buat dengan membuat text yang berjalan dengan memanfaatkan fungsi timer. Langka-langkaya adalah sebagai brikut :
1. Buatlah form sepeti pada gamar 16. Gunakan label untuk membuat text yang akan kita jalankan. Caranya rubah pada properties caption ganti label1 dengan text yang kita inginkan. Untuk mengatur kecepatan text saat berjalan, click timer1 ganti properties interval menjadi 5 yang terdapat pada object inspector.

Gambar 16. Desain form

2. Setelah selesai membuat form doble click timer1 dan masukan code berikut pada code editor.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.left = -245 then label1.Left := 280;
Label1.Left := Label1.Left-1;
end;

3. Setelah selesai jalankan program dengan mengclik tombol Run pada panel atau tekan F9 pada keyboard.

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;

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;

Langka-langkanya adalah sebagai berikut :

1.Disainla sebuah for seperti pada gambar 14 dibawa ini. Program ini 

  hanya mengunakan satu edit, dua tombol dan tiga buah label.

Gambar 14.

2.Ketikan code berikut pada code editor.

Untuk tombol Proses ada ketikan code berikut :

procedure TForm1.Button1Click(Sender: TObject);

var x : real;

AkarDariX : real;

begin

// ubah input dari Edit1 yg bertipe string ke tipe real

x := StrToFloat (Edit1.Text);

// hitung akar dari x, disimpan sbg AkarDariX

AkarDariX := sqrt (x);

// tampilkan keterangan

Label4.Caption := 'Akar dari ' +' ' + Edit1.Text+ ' ' + 'adalah';

// hasil perhitungan

Label2.Caption := FloatToStr (AkarDariX);

// memindah fokus ke Edit1

Edit1.SetFocus;

end;



Untuk tombol keluar anda masukan tombol berikut ini :

procedure TForm1.Button2Click(Sender: TObject);

begin

Application.Terminate;

End;



3.Setelah selesai mengetikan code diatas jalankan program tersebut.