Primeri zadataka u Delphi-u, Lajkovac

PROMENA POZADINE FORME

Izgled forme rešenja ovog zadataka prikazan je na donjoj slici.

Da bi napisali naziv "Promena pozadine forme" koristimo iz palete komponenti, komponentu Standard i njenu alatku Label a zatim pomoću Objekt Inspektora promeniti ćemo njen atribut Caption sa naziva "Label1" na "Promena pozadine forme" što je prikazano na donjoj slici.

Da bi dodali dugmad sa nazivima boja koje želimo da ima naša forma koristimo alatku Button iz palete Standardnih komponenti. Takođe je neophodno promeniti njegov atribut Caption na odgovarajući naziv boje pomoću Objekt Inspektora a što je prikazano na donjoj slici.

Na nivou forme treba takođe njen atribut Caption ispraviti na Primer1. Nakon svih ispravki naša forma treba da ima izgled koji je dat na početku. Ostaje nam da opišemo događaje na pritisak odgovarajući dugmadi. Pritiskom na odgovarajuće dugme automatski biće generisan sledeći kod.

procedure TForm1.Button1Click(Sender: TObject);
begin
end;

Ostaje da dodamo neophodan kod kako bi promenili boju forme pa će ovaj događaj biti opisan kao dole.

procedure TForm1.Button1Click(Sender: TObject);
begin
      Form1.Color :=  clRed;
end;

Komandom Form1.Color:=clRed naša forma dobiće crvenu boju. Istu postupak je neophodno pozvati i za ostalih pet dugmadi pa konačno naš program ima sledeći kod:

unit Primer1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label1: TLabel;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Color := clRed;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Color := clBlue;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Color := clYellow;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Form1.Color := clGreen;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Form1.Color := clBtnFace;
end;

end.

Kompletan kod programa možete preuzeti ovde.