Le interfacce grafiche!

tramite Delphi costruire un’interfaccia grafica è di una semplicità e velocità estrema. È sufficiente selezionare i componenti da utilizzare dalla component palette e sistemarli sulle schede (Forms).

Quando si crea un nuovo progetto, Delphi crea automaticamente una scheda detta principale (MainForm) che sarà la prima ad essere creata in fase di esecuzione. Aggiungendo altre schede al progetto, si ha la possibilità di decidere quale tra questa sarà la scheda principale. Per default Delphi crea in fase di esecuzione tutte le schede definite in fase di progetto a meno che non venga indicato altrimenti. In base all’applicazione da realizzare si decide se occupare o no memoria con schede che magari non hanno un uso continuo ed in questo caso vengono eliminate dalla liste delle schede da creare automaticamente e si procederà poi tramite codice a creare quest’ultime al momento opportuno. Per decidere quali schede creare automaticamente in esecuzione, scegliere dal menu “Project” la voce “Options…”; solitamente, la finestra che compare visualizza per prima il foglio riguardante le Forms ed è qui che possizmo decidere, spostando dalla lista di sinistra a quella di destra le forms da creare manualmente o vice versa. Sempre tramite questa finestra è possibile selezionare la form che sarà la MainForm dell’applicazione. Per creare manualmente una form tramite codice utilizzare il codice seguente

Application.CreateForm(TForm1, Form1);

Ovviamente TForm1 e Form1 andranno sostituiti secondo le proprie esigenze.

Insieme alla classe TForm che rappresenta le schede (o le finestre) dell’applicazione, ci sono due altre classi di rilevante importanza: TApplication e TScreen. La prima raccoglie le proprietà fondamentali di un’applicazione, come l’icona, il titolo dell’applicazione, il file di help associato, eventi riguardanti l’applicazione stessa come OnActivate, OnMessage, OnIdle ed altri. La classe TScreen incapsula le caratteristiche dello schermo sul quale viene eseguita l’applicazione. TScreen permette anche di recuperare l’elenco dei monitor e le loro dimensioni in caso di utilizzo di più monitor per la visualizzazione.

Proviamo a costruire una semplice applicazione con una semplicissima interfaccia grafica.

Creiamo un nuovo progetto, se nell’IDE non ve ne è già uno nuovo, scegliendo dal menu “File” il comando “New Application”. Avremo così visualizzata una scheda vuota pronta per ricevere i componenti per l’interfaccia grafica.

Selezioniamo la form nominata Form1 cliccandovi una volta ed andiamo ad impostare le sue dimensioni nell’Object Inspector; assegnamo alla proprietà height il valore 250 e alla proprietà width il valore 350.

Ora prendiamo dalla Component Palette (vedi lezioni riguardanti l’IDE) un componente Button cliccando sull’icona e mettiamolo nella nostra form cliccandoci semplicemente sopra. Vedremo il componente posizionato nella form nel punto in cui abbiamo cliccato. Posizioniamolo al centro della form facendo clic con il tasto destro del mouse sul componente Button appena piazzato e scegliamo il comando “align”.

Nella finestra che compare , nel gruppo “Orizontal” e “Vertical” scegliamo “Center in Window”

Scegliendo “OK” il nostro bottone verrà automaticamente centrato nella form.

Ora modificahiamo il testo visualizzato sul tasto modificando, con lo stesso procedimento utilizzato per modificare le dimensioni della form, la proprietà Caption impostandola a “Press me”.

Ora scegliendo il metodo che più vi è comodo tra quelli visti nelle lezioni riguardanti l’ambiente di sviluppo, associamo del codice all’evento che si attiverà alla pressione del nostro bottone; in questo caso, sapendo che l’evento predefinito per il componente TButton è l’evento OnClick faccio doppio click su di esso perchè Delphi crei il codice base dell’evento.

Scriviamo il seguente codice nel blocco del gestore dell’evento OnClick appena creato

MessageDlg(‘Hai premuto un tasto’, mtInformation, [mbOk], 0);

In questo modo alla pressione del bottone verrà visualizzata una finestra di dialogo modale recante il messaggio “Hai premuto un tasto”. Da notare che la natura modale della finestra di dialogo visualizzata arresta l’esecuzione del programma fintanto che l’utente non ha premuto il buttone “OK”.

Eseguiamo il codice appena scritto premendo il tasto rapido F9 oppure cliccando sul tasto posto nella bara degli strumenti dell’IDE, oppure ancora scegliendo il comando “Run” dal menu “Run”.

Ecco il risultato del nostro breve e semplice lavoro

Ora apportiamo una modifica al codice per dimostrare che l’esecuzione del codice si arresta fino a che non viene premuto il bottone “OK” nella finestra di dialogo.

Aggiungiamo dopo la riga di codice scritta in precedenza la seguente riga

Beep;

Questa riga farà emettere un beep, o dalla scheda audio o dallo speaker del PC a seconda della configurazione del sistema, dopo che avrete premuto il tasto “OK” nella finestra di dialogo.

Proviamo ora ad aggiungere un’altro componente e a d aggiungere altro codice. Aggiungiamo un componente Label che utilizzeremo per visualizzare il risultato di una nostra elaborazione. Con lo stesso procedimento seguito per aggiungere alla form il componente Button, aggiungiamo il componente Label rappresentato nella Component Palette con l’icona . Ora modifichiamo la sua posizione all’interno della form impostando per la proprietà Left il valore16 e per la proprietà Top il valore 16. Ora modifichiamo il testo della Label impostando la sua proprietà Caption a “Elapsed time (ms):”. Prendiamo un altro componente Label e posizioniamolo a 104, proprietà Left, 16, proprietà Top. Lasciamo la proprietà Caption così come è. Ecco come si presenta la nostra form dopo queste modifiche.

Ora aggiungiamo del codice all’evento OnClick del nostro bottone, per calcolare il tempo che trascorre tra la visualizzazione della finestra di dialogo e la chiusura della stessa dopo che l’utente ha premuto il tasto “OK” contenuto in essa.

Modifichiamo il codice del gestrore dell’evento OnClick del bottone nel modo seguente:

procedure TForm1.Button1Click(Sender: TObject);
Var Start, Elapsed : Integer;
begin
Start := GetTickCount;
MessageDlg(‘Hai premuto un tasto’, mtInformation, [mbOk], 0);
Elapsed := GetTickCount – Start;
Label2.Caption := IntToStr(Elapsed);
Beep;
end;

La funzione GetTickCount è una funzione di Windows che restituisce il numero di millisecondi trascorsi dall’avvio di Windows stesso. In Delphi questa funzione si trova, insieme a tutte o quasi le altre funioni di windows, nella unit “windows.pas”. La variabile Start conterrà il numero di millisecondi trascorsi dall’avvio di Windows fino al momento precedente la chiamata alla funzione MessageDlg. Elapsed ci serve per contenere il numero di millisecondi trascorsi dal momento predente la chiamata alla funzione MessageDlg alla chiusura della stessa. Il calcolo è molto semplice ed il risultato è quello della differenza tra il numero di millisecondi trascorsi dall’avvio di Windows e il numero di millisecondi trascorsi un momento prima di chiamare la funzione MessageDlg. La penultima riga assegna, effettuando una conversione da intero a stringa, il risultato dell’eleborazione alla proprietà Caption dell’etichetta nominata Label2.

Aggiungiamo anche un gestore per l’evento OnShow della form nel quale puliamo il valore della proprietà Caption di Label2. Dopo aver selezionato la form e tramite la pagina Events dell’Object Inspector creato il gestore per l’evento OnShow dovremmo inserire il codice seguente (badate non l’intestazione della procedura, solo la riga di codice tra Begin e End; il resto dovrebbe averlo creato automaticamnte Delphi tramite l’Object Inspector)

procedure TForm1.FormShow(Sender: TObject);
begin
Label2.Caption := ”;
end;

Ora eseguiamo il programma. Ecco il risultato dell’esecuzione del programma. Provate ad aprire a chiudere la finestra di dialogo più volte e vedrete il valore riportato vicino a Label1 cambiare.