unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
bt_tambah: TButton;
bt_edit: TButton;
bt_simpan: TButton;
bt_hapus: TButton;
bt_batal: TButton;
procedure enable (aktif:Boolean);
procedure bt_tambahClick(Sender: TObject);
procedure bt_simpanClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.enable(aktif:boolean);
begin
bt_tambah.Enabled:=False;
bt_edit.Enabled:=False;
bt_simpan.Enabled:=false;
end;
procedure TForm1.bt_simpanClick(Sender: TObject);
begin
bt_tambah.Enabled:=True;
bt_edit.Enabled:=True;
bt_hapus.Enabled:=True;
bt_simpan.Enabled:=False;
bt_batal.Enabled:=False;
end;
procedure TForm1.bt_tambahClick(Sender: TObject);
begin
bt_simpan.Enabled:=true;
bt_batal.Enabled:=True;
bt_tambah.Enabled:=False;
bt_edit.Enabled:=false;
end;
end.
Tidak ada komentar:
Posting Komentar