Ändra egenskaper under körning

(1)

Sida 1 av 3

Ändra egenskaper under körning

När du är klar med detta program kan du utveckla det genom att själv undersöka vilka egenskaper du kan ändra under körning. Prova dig fram…

(Egenskpaerna hittar du i ”Object Inspector”.)

(2)

Sida 2 av 3

unitunitunit

unit Unit1;

{$mode objfpc}{$H+}

interface interfaceinterface interface usesusesuses

uses

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

StdCtrls;

typetypetype type

{ TForm1 }

TForm1 = classclassclass(TForm) class Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Label1: TLabel;

procedureprocedureprocedure Button1Click(Sender: TObject); procedure procedureprocedureprocedure Button2Click(Sender: TObject); procedure procedureprocedureprocedure Button3Click(Sender: TObject); procedure procedureprocedureprocedure Button4Click(Sender: TObject); procedure procedureprocedureprocedure Button5Click(Sender: TObject); procedure procedureprocedureprocedure Button6Click(Sender: TObject); procedure procedureprocedureprocedure Button7Click(Sender: TObject); procedure private

{ private declarations } public

{ public declarations } endendend; end

var varvar var

Form1: TForm1;

implementation implementationimplementation implementation { TForm1 } procedure procedureprocedure

procedure TForm1.Button1Click(Sender: TObject);

begin beginbegin begin

Form1.Width := 400;

Form1.Height := 300;

end endend end;

procedure procedureprocedure

Form1.Width := 560;

Form1.Height := 420;

endendend end;

Form1.Color := clBtnFace;

end endend end;

Form1.Color := clNavy;

(3)

Sida 3 av 3

endendend end;

Form1.Color := clRed;

endendend end;

Label1.Font.Size := 20;

Label1.Caption := 'Stor text';

endendend end;

Label1.Font.Size := 10;

Label1.Caption := 'Liten text';

endendend end;

initialization initializationinitialization initialization {$I unit1.lrs}

endendend end.

======================================================================

Lista på de vanligaste färgkonstanterna:

clBlack = TColor($000000);

clMaroon = TColor($000080);

clGreen = TColor($008000);

clOlive = TColor($008080);

clNavy = TColor($800000);

clPurple = TColor($800080);

clTeal = TColor($808000);

clGray = TColor($808080);

clSilver = TColor($C0C0C0);

clRed = TColor($0000FF);

clLime = TColor($00FF00);

clYellow = TColor($00FFFF);

clBlue = TColor($FF0000);

clFuchsia = TColor($FF00FF);

clAqua = TColor($FFFF00);

clLtGray = TColor($C0C0C0);

clDkGray = TColor($808080);

clWhite = TColor($FFFFFF);