membuat button pada delphy

Listing program

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  Tbagianbadan = class(TForm)

    btnkepala: TButton;

    btnbadan: TButton;

    btntangankanan: TButton;

    btntangankiri: TButton;

    btnkakikiri: TButton;

    btnkakikanan: TButton;

    lblbadan: TLabel;

    hasil: TLabel;

    procedure btnbadanClick(Sender: TObject);

    procedure btntangankananClick(Sender: TObject);

    procedure btntangankiriClick(Sender: TObject);

    procedure btnkepalaClick(Sender: TObject);

    procedure btnkakikiriClick(Sender: TObject);

    procedure btnkakikananClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  bagianbadan: Tbagianbadan;

implementation

{$R *.dfm}

procedure Tbagianbadan.btnbadanClick(Sender: TObject);

begin

lblbadan.Caption := 'ini adalah badan'

end;

procedure Tbagianbadan.btntangankananClick(Sender: TObject);

begin

lblbadan.Caption := 'ini adalah tangan kanan'

end;

procedure Tbagianbadan.btntangankiriClick(Sender: TObject);

begin

lblbadan.Caption := 'ini adalah tangan kiri'

end;

procedure Tbagianbadan.btnkepalaClick(Sender: TObject);

begin

lblbadan.Caption := 'ini adalah kepala'

end;

procedure Tbagianbadan.btnkakikiriClick(Sender: TObject);

begin

lblbadan.Caption := 'ini adalah kaki kiri'

end;

procedure Tbagianbadan.btnkakikananClick(Sender: TObject);

begin

lblbadan.Caption := 'ini adalah kaki kanan'

end;

end.

Logika Program

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

Statement ini maksudnya menjelaskan nama form yang digunakan untuk membuat program,contohnya pada program ini menggunakan nama form unit 1.

type

  Tbagianbadan = class(TForm)

    btnkepala: TButton;

    btnbadan: TButton;

    btntangankanan: TButton;

    btntangankiri: TButton;

    btnkakikiri: TButton;

    btnkakikanan: TButton;

    lblbadan: TLabel;

    hasil: TLabel;

    procedure btnbadanClick(Sender: TObject);

    procedure btntangankananClick(Sender: TObject);

    procedure btntangankiriClick(Sender: TObject);

    procedure btnkepalaClick(Sender: TObject);

    procedure btnkakikiriClick(Sender: TObject);

    procedure btnkakikananClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

Statement ini menjelaskan tentang component-component yang digunakan beserta nama yang digunakan pada masing-masing component tersebut,dan juga prosedur yang digunakan pada component tersebut contohnya component TButton 1 memiliki nama btnkepala dan seterusnya.sehingga program dapat memiliki prosedur yang jelas ketika mengeksekusi setiap component tersebut,dan juga mendeklarasikan bahwa program ini mempunyai program yang mempunyai identifier private dan public.

var

  bagianbadan: Tbagianbadan;

implementation

{$R *.dfm}

Statement ini menjelaskan bahwa program yang kita buat terdapat pada form dengan nama bagianbadan

procedure Tbagianbadan.btnbadanClick(Sender: TObject);

begin

lblbadan.Caption := 'ini adalah badan'

end;

Statement ini menjelaskan bahwa nama form bagianbadan  memiliki aksi pada botton badan ketika diklik akan keluar tulisan ini adalah badan pada label badan

procedure Tbagianbadan.btntangankananClick(Sender: TObject);

begin

lblbadan.Caption := 'ini adalah tangan kanan'

end;

Statement ini menjelaskan bahwa nama form bagianbadan  memiliki aksi pada botton tangan kanan ketika diklik akan keluar tulisan ini adalah tangan kanan pada label badan

procedure Tbagianbadan.btntangankiriClick(Sender: TObject);

begin

lblbadan.Caption := 'ini adalah tangan kiri'

end;

Statement ini menjelaskan bahwa nama form bagianbadan  memiliki aksi pada botton tangan kiri ketika diklik akan keluar tulisan ini adalah tangan kiri pada label badan

procedure Tbagianbadan.btnkepalaClick(Sender: TObject);

begin

lblbadan.Caption := 'ini adalah kepala'

end;

Statement ini menjelaskan bahwa nama form bagianbadan  memiliki aksi pada botton kepala ketika diklik akan keluar tulisan ini adalah kepala pada label badan

procedure Tbagianbadan.btnkakikiriClick(Sender: TObject);

begin

lblbadan.Caption := 'ini adalah kaki kiri'

end;

Statement ini menjelaskan bahwa nama form bagianbadan  memiliki aksi pada botton kaki kiri ketika diklik akan keluar tulisan ini adalah kaki kiri pada label badan

procedure Tbagianbadan.btnkakikananClick(Sender: TObject);

begin

lblbadan.Caption := 'ini adalah kaki kanan'

end;

end.

Statement ini menjelaskan bahwa nama form bagianbadan  memiliki aksi pada botton kaki kanan ketika diklik akan keluar tulisan ini adalah kaki kanan pada label badan,dan juga menjelaskan bahwa end kedua maksudnya mengakhiri statement program.