Titlul documentului

etichete.In final adaugati in fereatra si un buton OK.Acum fereatra

contine cinci obiecte.Amplasati prima eticheta langa caseta de editare

si modificati textul afisat pe buton,selectand din Object Inspector

proprietatea Caption,astfel incat eticheta sa contina textul: "Introduceti

datele: ".Apoi efectuati un click pe eticheta a doua si modificati textul

astfel incat sa contina: "Afisarea datelor: ".In final,efectuati un click

pe eticheta a treia(Label3) si stergeti complet textul din Caption,dar

introduceti un numar oarecare de spatii goale.Pentru ca obiectul sa fie

activ,selectati cu mouse butonul OK,schimbati textul din Caption in:

"AFISARE" apoi selectati Events si efectuati un dublu click.Delphi va

scrie automat procedura pentru buton,pe care o definitivati astfel:

procedure TForm2.Button1Click(Sender: TObject);

var text1:variant;

begin

text1:=Edit1.text;

Label3.Caption:=text1;

end.

Optional,puteti adauga si un buton de EXIT,la fel ca in exercitiul pre-

cedent.Compilati,construiti proiectul cu Build All si apoi executati cu

Run.Daca toate operatiile au fost corecte,in fereastra intitulata Form2

va aparea o casta de editare si un buton pe care scrie AFISARE.Introduceti

un text oarecare si apoi apasati butonul.Textul trebuie sa apara in

eticheta notata cu Label3(la nevoie-vezi exemplul din Prj2).

In caz ca nu schimbati numele ferestrei din Form1 in Form2,riscati

ca Delphi sa confunde aplicatia cu fereastra Form1(care este rezidenta in

memoria de oparare).Este bine sa alegeti nume cat mai discriminative.

Proiectul poate fi compilat si construit si apasand tasta F9.


-7- Standard - TPANEL si TTABLE

Pentru a face economie de spatiu,nu voi transcrie textul fiecarui

exemplu prezentat.Manualul va fi insotit de un director,care va contine

toate exemplele prezentate.In caz ca exista nelamuriri,consultati fila

Unit.pas corespunzatoare (exercitiile vor fi denumite la fel ca in manual)

Un alt exercitiu simplu,permite formarea unei aplicatii care citeste

sau scrie date intr-o baza de date.

Deschideti o noua fereastra Form.Salvati fereastra intr-un director nou

(Prj3),apoi salvati proiectul cu numele de Proiect3.Selectati un obiect

de tip TPanel (ultimul din seria de obiecte standard).In Object Inspector

selectati Align si alegeti in loc de alNone optiunea alTop.Apoi extindeti

suprafata selectand Height si inlocuind valoarea cu 200.

In continuare,efectuati un click pe Data Access si alegeti dintre

obiectele afisate pe primul si efectuati un click in coltul din dreapta

jos a ferestrei.Apoi alegeti cel de la doilea obiect si efectuati un

click in fereastra,langa obiectul precedent.Fereatra va contine acum

sub TPanel,un obiect TDataSource si un obiect TTable.

In final,executati un click pe Data Controls si alegeti cu un click

mouse primul obiect din noua serie afisata (TDBGrid).Amplasati(click) noul

obiect in interiorul ariei Panel1(in coltul din stanga sus) si ajustati

suprafata astfel incat sa ocupe aproape intreaga arie Panel1.Apoi alegeti

cel de al doilea obiect(TDBNavigator)cu un click,apoi efectuati un click

in fereastra sub aria Panel1.

Acum,fereastra contine toate obiectele necesare.Pentru a fi operative,

proprietatile obiectelor trebuiesc reconfigurate astfel:

-selectati cu mouse TDBGrid si alegeti din Object Inspector proprietatea

Data Source.Efectuati un click in caseta goala si alegeti apoi optiunea

DataSource1(apasati butonul de navigare)

-selectati cu mouse obiectul TDBNavigator si efectuati aceeasi operatie

(setati Data Source la DataSource1)

-selectati cu mouse obiectul DataSource1 si setati campul DataSet la

valoarea Table1 (utilizati butonul de navigare)

-in final,selectati cu mouse obiectul TTable si efectuati urmatoarele

operatii: in Object Inspector alegeti DatabaseName si selectati dintre

optiunile afisate DBDEMOS,apoi alegeti TableName si selectati dintre

optiunile afisate EMPLOYEE.DB.In final reveniti la prima proprietate a

obiectului denumita Active si selectati optiunea True (in loc de False).

Daca totul este corect,campul DBGrid se va umple de date,afisate sub

forma de tabel.Daca doriti sa schimbati baza de date,modificati Active

astfel incat sa redevina False,apoi alegeti in TableName un alt tabel din

baza de date DBDEMOS si in final resetati Active la valoarea True (nu se

poate schimba un tabel atat timp cat o baza de date este activa).

In final tastati F9 sau compilati si apoi construiti cu Build All.

Aplicatia poate fi lansata cu Run.Puteti sa utilizati butoanele din

bara de butoane oferita de TDBNavigator pentru a va deplasa in tabel,

pentru a include sau exclude date sau pentru salturi la extremitatile

tabelului si pentru revenire la pozitia anterioara.

O aplicatie de acest gen se poate utiliza pentru a lucra cu baze de

date de tip Paradox,dBASE,Access,FoxPro,SQL,InterBae,Sysbase sau SQLServer

In continuare,puteti sa configurati dupa bunul plac dimensiunile,culorile,

fonturile,pozitia obiectelor etc. astfel incat sa va atraga atentia

asupra elementelor pe care le considerati foarte importante.

-8- Standard - TMAINMENU

Pentru a edita un meniu,puteti utiliza componentul TMainMenu (primul

din lista de obiecte Standard).In acest sens,deschideti o noua fereastra

Form,salvati fereastra intr-un director (Prj4) si apoi salvati proiectul

(Proiect4).Tastati F9 pentru a verifica daca fereastra este activa.

Inchideti fereastra,selectati TMainMenu cu un click de mouse,apoi,un

click de mouse in Form.Pentru a edita meniul,executati un dublu click pe

TMainMenu.Delphi va afisa un instrument de editare denumit Form1.MainMenu1

sub forma unei ferestre mai mici in care apare un dreptunghi albastru.

Daca doriti sa editati un meniu Standard,puteti utiliza unul dintre

meniurile predefinite.In acest caz,efectuati un click de mouse cu butonul

drept in dreptunghiul albastru si apoi selectati Insert From Template.

Dintre optiunile oferite alegeti MDI Frame Menu si apoi OK.Pentru a

defini procedura asociata fiecarei optiuni,executati un dublu click pe

optiunea respectiva.De exemplu,executati un dublu click pe EXIT,apoi

introduceti in procedura editata automat Close.Tastati F9,sau compilati

si construiti cu Build All,apoi executati cu Run.Fereastra d-voastra va

contine un meniu MDI Standard,in care butonul Exit este deja functional.

Pentru a edita un meniu personalizat,procedati in mod similar.Salvati

o fila noua un directorul Prj6,apoi salvati proiectul,compilati,selectati

si adaugati in Form un obiect TMainMenu,executati un dublu click pe

TMainMenu.In obiectul de editare afisat,executati un click de mouse in

dreptunghiul albastru,apoi introduceti in Object Inspector,in campul de-

numit Caption numele meniului dorit: de exemplu Meniu1 si apoi tastati

Enter.Observati ca apare un nou dreptunghi.Selectati noul dreptunghi cu

un click de mouse,apoi introduceti in Caption numele noului meniu: de

exemplu Meniu2.Repetati operatia pentru Meniu3 si Meniu4.

Pentru a introduce lista de optiuni a fiecarui meniu,selectati cu mouse

meniul respectiv :de exemplu Meniu1.Observati ca sub meniu apare un buton

gol.Selectati butonul cu un click de mouse si introduceti in Caption nu-

mele optiunii: de exemplu EXIT.Apoi pentru a asocia o procedura cu optiu-

nea respectiva,efectuati un dublu click pe butonul respectiv.De exemplu

un dublu click pe butonul EXIT din Meniul1 la care introduceti in proce-

dura editata automat Close.Apoi Compilati si executati cu Run(sau F9).

Este extrem de simplu si rapid.Daca nu sunteti hotarat cum anume doriti

sa arate meniul editat,puteti sa exersati intr-o fereastra de editare,

fara ca sa salvati proiectul.Programul isi gestioneaza singur instantele

si codurile de identificare (TAG).Nu trebuie decat sa programati procedu-

rile si functiile asociate fiecarei optiuni.

Pentru meniurile Popup se procedeaza absolut identic.Se selecteaza un

obiect de tip TPopup si se defineste la fel ca si un meniu.Meniurile popup

nu sunt afisate direct.Pentru a putea fi utilizate trebuiesc asociate cu

un control oarecare si apoi activate cu un click de mouse cu butonul drept

Exemplu: editati un meniu Popup si adaugati in fereastra si un buton OK.

Selectati butonul Ok si in Object Inspector alegeti proprietatea PopupMenu

si setati valoarea acesteia la PopupMenu1.Apoi tastati F9.Pentru a putea

utiliza meniul popup efectuati un click de mouse cu butonul drept pe

butonul OK.

Efectuati cateva exercitii cu meniuri si meniuri Popup,pana cand va

familiarizati cu modul de editare (fara sa salvati proiectele).Meniurile

simple sunt mai usor de implementat si mai sigure.Meniurile popup pot

fi amplasate in orice pozitie si pot fi "ascunse" fata de utilizatori.


-9- Standard - TMEMO si TLISTBOX

Un alt obiect predefinit este TMemo,asemanator cu TEdit.TMemo permite

introducerea si/sau selectarea unui numar mai mare de randuri de tip text.

Se utilizeaza pentru introducerea unor informatii mai ample.Principalele

proprietati si metode sunt mostenite de la ancestorii sai:TCustomMemo,

TCustomEdit,TWinControl,TControl si TComponent.

Pentru a utiliza un astfel de control,deschideti si salvati o fila

noua (in Prj6) si apoi salvati proiectul.Tastati F9 pentru a activa fila.

Apoi inchideti fereatra,selectati TMemo si efectuati un click in Form,

acolo unde doriti sa amplasati campul de editare.In Object Inspector

puteti redimensiona controlul din campurile Height (150) si Width (300).

Adaugati un obiect TLabel in care scrieti textul: "Introduceti datele: ",

si un buton OK (TButton).In Caption din Object Inspector scrieti pe

buton "STERGE" si apoi in Events efectuati un dublu click in caseta

OnClick.Definiti procedura TForm1.Button1Click astfel:

procedure TForm1.Button1Click(Sender: TObject);

begin

Memo1.Clear;

end;

Apoi tastati F9.In caseta de editare puteti introduce texte intregi,iar

butonul poate fi utilizat pentru a sterge textele.

Un obiect asemanator este TListBox.Se poate utiliza pentru a afisa o

lista de denumiri,dintre care se poate selecta una singura (De exemplu

pentru a selecta un nume dintr-o lista de persoane).

Un exercitiu simplu este urmatorul.Salvati o fila noua si proiectul in

directorul Prj7.Tastati F9 si apoi inchideti fereastra activa.Selectati

TListBox(sub DataAccess) si efectuati un click in Form.Redimensionati

obiectul cu Height si Width din Object Inspector.Apoi selectati un

obiect TEdit si executati un click in Form.Amplasati TEdit in pozitia

dorita,apoi adaugati un obiect TLabel cu textul explicativ: "Introduceti

un text: ".Adaugati un buton si scrieti pe buton "OK".Click in Events din

Object Inspector,apoi definiti procedura TForm1.Button1Click astfel:

procedure TForm1.Button1Click(Sender: TObject);

begin

ListBox1.Items.Add(Edit1.Text);

end;

Tastati F9.

Acum puteti utiliza TEdit,pentru a introduce o lista de date in TListBox.

Eventual puteti adauga un buton care sa stearga automat textul din TEdit,

si/sau un buton care sa stearga automat textul din TListBox.

Observati ca pentru a adauga date in lista nu am utilizat o metoda ci

o proprietate a obiectului.Explorati restul de proprietati pentru a

personaliza obiectul dupa bunul plac.

De exemplu,proprietatea Style determina daca elementele din lista pot

fi de inaltimi diferite,sau daca vor fi afisate cu inaltime fixa.Cele trei

variante posibile sunt:

lbStandard -toate elementele sunt siruri cu aceeasi inaltime

lbOwnerDrawFixed -fiecare element are inaltimea specificata in Height

lbOwnerDrawVariable -elementele pot avea inaltimi diferite

In mod similar,proprietatea Sorted determina daca elementele din lista

vor fi sau nu vor fi sortate alfabetic.

Incercati sa preluati date dintr-un obiect ListBox1 in obiectul ListBox2.


-10- Standard - TCOMBOBOX

Urmatorul obiect predefinit din grupul Standard este TComboBox,care

combina un obiect de tip TEdit cu un obiect de tip TListBox.Un astfel de

obiect are o componenta de editare si o lista cu butoane de navigare si

permite selectarea unui anumit obiect din lista.Se utilizeaza pentru

diverse operatii asupra unor grupuri de date.Un exemplu simplu de utili-

zare este urmatorul (Prj8).

Adaugati in Form1 un obiect de tip TComboBox,un obiect de tip TListBox

si doua butoane TButton.In Object Inspector stergeti campul Text din

ComboBox1,apoi adaugati lista de elemente.EXEMPLU: puteti utiliza primul

buton,in felul urmator: selectati butonul,redenumiti butonul in Caption,

apoi efectuati un dublu click in OnClick din Events.Redefiniti procedura

TForm1.Button1Click astfel:

procedure TForm1.Button1Click(Sender: TObject);

begin

ComboBox1.Items.Add('Mere');

ComboBox1.Items.Add('Pere');

ComboBox1.Items.Add('Struguri');

ComboBox1.Items.Add('Prune');

end;

Tastati F9.In fereastra obtinuta,dupa ce apasati butonul OK,in caseta

de dialog de tip ComboBox selectati butonul de navigare si trebuie sa

regasiti lista elementelor introduse (mere,pere,struguri,prune).

Observati ca elementele din lista se pot introduce tot cu Items,la care

se adauga una dintre metodele obiectului TStrings (proprietatea Items

accepta ca valoare un obiect de tip TStrings si implicit si toate meto-

dele si proprietatile obiectului TStrings).In loc de Add se poate utiliza

Append,sau Insert...etc.

Din lista afisata,puteti selecta si prelua unul dintre elemente.Pentru

a selecta un anumit element si pentru a copia acest element in lista

din TListBox,puteti proceda in felul urmator:

Selectati cel de al doilea buton.Scrieti pe buton textul "SELECTEAZA"

(in Caption),apoi selectati Events si efectuati un dublu click in On Click

dupa care redefiniti procedura TForm1.Button2Click astfel:

procedure TForm1.Button2Click(Sender: TObject);

begin

ListBox1.Items.Add(ComboBox1.Text);

end.

Tastati F9.Acum,ambele butoane sunt functionale.Apasati primul buton si

apoi alegeti din lista unul dintre elemente (de exemplu struguri).Apoi

apasati butonul SELECTEAZA.Elementul selectat in TComboBox va fi afisat

in TListBox.In continuare puteti selecta un nou element.

Daca doriti sa salvati aplicatia,salvati fila cu Save as...in directo-

rul Prj8(nou creat) si apoi salvati in acelasi director si proiectul,cu

Save Project as...

Este foarte importatnt sa salvati si proiectul,deoarece contine file

indispensabile pentru executie (de exemplu fila in care sunt salvate pro-

prietatile obiectului).Daca uitati sa salvati proiectul si salvati doar

fila,aplicatia va fi nefunctionala si nici nu va putea fi completata prin

compilare (intregul proiect va trebui reluat complet).

Fila si proiectul se pot salva la inceputul proiectului,pentru a evita

o eventuala intrerupere prin care puteti pierde toata munca efectuata.


-11- Standard - TGROUPBOX

Urmatoarele obiecte: TGroupBox,TRadioGroup si TPanel,se utilizeaza

pentru a grupa doua sau mai multe obiecte,de acelasi fel,sau diferite.

Obiectul care incadreaza obiectele componente poarta numele de parinte si

adauga un set suplimentar de proprietati si metode,care diversifica paleta

de optiuni.

Pentru exemplificare,putem utiliza un obiect TGroupBox pentru a grupa

un buton TCheckBox si un buton TRadioButton,astfel;

Salvati o fila noua si proiectul intr-un director nou (Prj9).

Adaugati in Form1 un obiect de tip TGroupBox si redimensionati obiectul.

In GroupBox1,adaugati un obiect TCheckBox iar langa el un obiect TLabel

si sub acestea un obiect TRadioButton,apoi un alt obiect TLabel astfel

incat obiectele TLabel sa descrie starea butonului.

In Object Inspector redenumiti campurile TLabel in "Neselectat" si

respectiv "Liber".

Apoi selectati butonul ChecBox1 si in Events executati un dublu click

in On Click.Apoi redeclarati procedura TForm1.FormClick astfel:

procedure TForm1.Click(Sender:TObject);

begin

if CheckBox1.Checked = False then

Label1.Caption:='Neselectat';

if CheckBox1.Checked = True then

Label1.Caption:='SELECTAT';

end;

Tastati F9 si verificati butonul.Selectati si deselectati butonul dupa

care efectuati un click in fereastra in orice alta pozitie.In mod normal

campul TLabel1 va afisa starea butonului.

Pentru a activa si cel de al doilea buton,inchideti fereastra activa,apoi

selectati in Form1 butonul RadioButton1.In Events din ObjectInspector

efectuati un dublu click in OnClick,apoi redeclarati procedura adaugata

automat astfel:

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if RadioButton1.Checked = False then

Label2.Caption:='Liber';

if RadioButton1.Checked = True then

Label2.Caption:='ACTIVAT';

end;

Tastati F9 si apoi verificati butonul.In mod normal,in momentul in care

selectati butonul radio,campul Label2 va afisa starea ACTIVAT.

In continuare,explorati restul de proprietati si metode oferite de

obiectul TGroupBox.

De exemplu modificati putin schema de culori.Pentru GroupBox1 alegeti in

Obiect Inspector culoarea clLime (din Color),pentru CheckBox1 alegeti

culoarea clAqua iar pentru RadioButton1 alegeti culoarea clFuchsia.

In continuare,puteti modifica si culoarea ferestrei Form1 in clTeal.

Executati cu Run aplicatia,apoi modificati schema de culori dupa bunul

plac.

Proprietatile si metodele adaugate de TGroupBox sunt de fapt cele

mostenite de la ancestorii: TCoustomGroupBox,TCustomControl,TWinControl

TControl,TComponent,TPersistent si TObject.Observati cat de flexibila si

totusi cat de facila este programarea acestor obiecte.


-12- Standard - TRADIOGROUP

TRadioGroup este un obiect specializat pentru gruparea butoanelor de

tip radio,care pot functiona asincron in cadrul acestui obiect.Butoanele

de tip radio incluse in acest tip de obiect vor forma un grup,in care

in momentul selectarii unui buton,restul butoanelor sunt deselectate

automat (proprietatea Checked devine False).Din acest motiv,intr-un

obiect de tip TRadioGroup,doua butoane nu pot fi selectate simultan ci

doar alternativ.Pentru a adauga butoane se poate utiliza Items din Object

Inspector iar pentru a determina care dintre butoane este selectat se

poate utiliza ItemIndex.

Un exemplu simplist este urmatorul:

Salvati o fila noua si salvati proiectul (in directorul Prj10).

Introduceti in Form un obiect de tip TRadiogroup si utilizati Height si

Width pentru a redimensiona obiectul(sau trageti cu butonul mouse apasat

de patratelele afisate pe marginea obiectului).

Introduceti in RadioGroup1 trei obiecte de tip TRadioButton.Apoi efec-

tuati un click pe fiecare din cele trei butoane iar in Events din Object

inspector efectuati un dublu click in OnClick.

Redeclarati cele trei proceduri astfel:

implementation

{$R *.DFM}

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if RadioButton1.Cheched = True then