Skapa ett formulär med ett bestämt utseende 2 Skapa ett nytt projekt med ett formulär som ser exakt lika ut som detta.

Sida 1 av 3

Skapa ett formulär med ett bestämt utseende 2

Skapa ett nytt projekt med ett formulär som ser exakt lika ut som detta.

Spara projektet i mappen T2\projekt 2.

Tabulatorordningen skall vara:

1.

2. Knapp 2

3. Knapp 3

4. Knapp 4

5. ListBox 1

6. Knapp 4 – PÅ

7. Knapp 4 - AV

8. Avsluta-knappen

ListBox 1

Kind = bkClose

Sida 2 av 3

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,

StdCtrls, ExtCtrls, Buttons;

type

{ TForm1 }

TForm1 = class(TForm) BitBtn1: TBitBtn;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

ListBox1: TListBox;

Panel1: TPanel;

procedure BitBtn1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ private declarations } public

{ public declarations } end;

var

Form1: TForm1;

implementation { TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

begin

Listbox1.Items.Add(Button1.Caption);

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Listbox1.Items.Add(Button2.Caption);

end;

Sida 3 av 3

procedure TForm1.Button3Click(Sender: TObject);

begin

Listbox1.Items.Add(Button3.Caption);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Listbox1.Items.Add(Button4.Caption);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Button4.Enabled := true;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

Button4.Enabled := false;

end;

initialization {$I unit1.lrs}

end.