Sida 1 av 2
Årstider
unitunitunit
unit Unit1;
{$mode objfpc}{$H+}
interface interfaceinterface interface usesusesuses
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls;
type typetype type
{ TForm1 }
TForm1 = classclassclass(TForm) class Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedureprocedureprocedure Button1Click(Sender: TObject); procedure procedureprocedureprocedure Button2Click(Sender: TObject); procedure procedureprocedureprocedure Button3Click(Sender: TObject); procedure procedureprocedureprocedure Button4Click(Sender: TObject); procedure private
{ private declarations } public
{ public declarations } endendend; end
var varvar var
Form1: TForm1;
Sida 2 av 2
implementationimplementationimplementation implementation { TForm1 } procedure procedureprocedure
procedure TForm1.Button1Click(Sender: TObject);
begin beginbegin begin
ShowMessage('Anders braskar - julen slaskar');
endendend end;
procedure procedureprocedure
procedure TForm1.Button2Click(Sender: TObject);
begin beginbegin begin
ShowMessage('Sköna maj välkommen.');
endendend end;
procedure procedureprocedure
procedure TForm1.Button3Click(Sender: TObject);
begin beginbegin begin
ShowMessage('En svala gör ingen sommar.');
endendend end;
procedure procedureprocedure
procedure TForm1.Button4Click(Sender: TObject);
begin beginbegin begin
ShowMessage('Svamp, lingon och älgkött...');
endendend end;
initialization initializationinitialization initialization {$I unit1.lrs}
endendend end.