• No results found

Årstider Sida 1 av 2

N/A
N/A
Protected

Academic year: 2021

Share "Årstider Sida 1 av 2"

Copied!
2
0
0

Loading.... (view fulltext now)

Full text

(1)

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;

(2)

Sida 2 av 2

implementation

implementationimplementation 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.

References

Related documents

[r]

[r]

[r]

[r]

Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls, Spin, Buttons, ExtCtrls,

if (Memo1.Lines.Count > 0) then //Kontrollerar om det finns någon text begin. if SaveDialog1.Execute

Vellinge kommun samlar in och lagrar de personuppgifter som du lämnar i e-tjänsten för "Avställningsrapport för oljecistern inom fastigheten" (behandling som sker är

[r]