Events in Object Inspector

(1)

Sida 1 av 3

Events in Object Inspector

Du skall nu skapa ett lika program som de ser ovan. De 2 översta etiketterna skall heta Label1 och Label2. De olika etiketterna skall reagera på olika händelser. Se bild ovan samt kod nedan.

Händelser

(Events)

(2)

Sida 2 av 3

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;

type

{ TForm1 }

TForm1 = class(TForm) Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

procedure FormActivate(Sender: TObject);

procedure FormClick(Sender: TObject);

procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);

procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);

procedure FormCreate(Sender: TObject);

procedure FormDblClick(Sender: TObject);

procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

private

{ private declarations } public

{ public declarations } end;

var

Form1: TForm1;

implementation { TForm1 }

procedure TForm1.FormActivate(Sender: TObject);

begin

Label2.Caption := 'Denna text visas vid OnActivate';

end;

procedure TForm1.FormClick(Sender: TObject);

begin

Label3.Caption := 'Denna text visas vid OnClick';

end;

(3)

Sida 3 av 3

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);

begin

Label7.Caption := 'Denna text visas vid OnClose';

ShowMessage('Denna text visas vid OnClose');

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);

begin

Label6.Caption := 'Denna text visas vid OnCloseQuery';

ShowMessage('Denna text visas vid OnCloseQuery');

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Label1.Caption := 'Denna text visas vid OnCreate';

end;

procedure TForm1.FormDblClick(Sender: TObject);

begin

Label4.Caption := 'Denna text visas vid OnDblClick';

end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState );

begin

Label5.Caption := 'Denna text visas vid OnKeyDown';

end;

initialization {$I unit1.lrs}

end.