• No results found

Ändra egenskaper under körning


Academic year: 2021

Share "Ändra egenskaper under körning"


Loading.... (view fulltext now)

Full text


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”.)


Sida 2 av 3


unit Unit1;

{$mode objfpc}{$H+}

interface interfaceinterface interface usesusesuses


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


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

procedure TForm1.Button2Click(Sender: TObject);

begin beginbegin begin

Form1.Width := 560;

Form1.Height := 420;

endendend end;

procedure procedureprocedure

procedure TForm1.Button3Click(Sender: TObject);

begin beginbegin begin

Form1.Color := clBtnFace;

end endend end;

procedure procedureprocedure

procedure TForm1.Button4Click(Sender: TObject);

begin beginbegin begin

Form1.Color := clNavy;


Sida 3 av 3

endendend end;

procedure procedureprocedure

procedure TForm1.Button5Click(Sender: TObject);

begin beginbegin begin

Form1.Color := clRed;

endendend end;

procedure procedureprocedure

procedure TForm1.Button6Click(Sender: TObject);

begin beginbegin begin

Label1.Font.Size := 20;

Label1.Caption := 'Stor text';

endendend end;

procedure procedureprocedure

procedure TForm1.Button7Click(Sender: TObject);

begin beginbegin begin

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);


Related documents

The reference signal (R3) and measured signal (C) of port 3 of VNA should connect with forward directional coupler port 2’ and 3’, while port R4 and D connect with the port 7’

The goal of this work is to facilitate a method that could help the examiner in grading the student’s work, at the same time, helping the students understand what criteria are

procedure procedure procedure Button1Click(Sender: TObject); procedure procedure procedure procedure Button2Click(Sender: TObject); procedure procedure procedure

The supervisor also fills out, signs and sends to the coordinator an approval of the final report, as well as supplies a detailed assessment of the student (using the form available

The experience from the case study indicates that the suggested integrated and iterative working procedure should be able to add information about socio-ecological impacts of

Top-Down fatigue cracking; asphalt mixture morphology; fracture mechanics; response surface; reliability analysis; load resistance factor

The present project is focused on development of an open-source and platform independent matlab-based software ca- pable of analyzing the raw experimental measurements, and

Against the background of my suggestion that the bureaucratic model is the best solution to the political issue of how society should organise and administrate the move of