Program Warna sederhana (Delphi)

Kali ini saya akan sharing kepada sahabat blogger  cara membuat program pemilihan warna sederhana dengan bahasa pemrograman Delphi.

Caranya adalah sebagai berikut :

1. Buka aplikasi Delphi
2. Buat 1 buah shape pada form (pada Component Palette pilih additional kemudian pilih shape)
3. Buat 3 buah button pada form (pada  Component Palette pilih standard lalu pilih button )

Component Palette





Atur letaknya seperti gambar berikut :

Kemudian ubah properti pada form dan koponen-komponen tersebut seperti berikut :

• Pilih button1 kemudian pada properti pilih caption lalu ganti dengan Merah
• Pilih button2 kemudian pada properti pilih caption lalu ganti dengan Biru
• Pilih button3 kemudian pada properti pilih caption lalu ganti dengan Close

Hasilnya seperti gambar berikut :

klik 2 kali button1/tombol Merah kemudian diantara begin dan end ketikkan listing program berikut :
shp1.Brush.Color:=clRed;

klik 2 kali button2/tombol Biru kemudian diantara begin dan end ketikkan listing program berikut :
shp1.Brush.Color:=clBlue;

klik 2 kali button3/tombol Close kemudian diantara begin dan end ketikkan listing program berikut :
close

jalankan program dengan menggunakan menu Run atau menekan tonbol F9

tampilan outputnya seperti berikut ini :

 

CATATAN :
shp1 pada listing program diatas adalah nama dari shape yang kita buat. jadi, shp1 pada listing program diatas bisa saja berubah tergantung nama dari shape yang kita buat


Secara lengkap  listing programnya sebagai berikut:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    shp1: TShape;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
shp1.Brush.Color:=clRed;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
shp1.Brush.Color:=clBlue;
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
close
end;

end.