Omat dialogit

• Tehtävä 1.5 Modaalinen dialogi
• Tehtävä 1.6 Liikkuva auto myös toisessa dialogissa

Oikeassa ohjelmassa on harvoin vain yksi ikkuna. Lisäämme esimerkin vuoksi vielä ohjelmaamme itse tehdyn About- dialogin:

1.

Luo uusi lomake (File|New form| Blank form).

2.

Vaihda lomakkeen nimeksi FormAbout ja otsikoksi Tietoja autolaskurista.

3.

Lisää vakioteksti (Label) jonka nimeksi vaikkapa LabelAbout ja WordWrap - ominaisuus todeksi. Tekstiksi sitten mikä tahansa ohjelman toimintaa yms. kuvaava teksti.

4.

Lisää vielä haluamiasi koristeita, kuten esim. bittikarttoja (vrt. liikkuvan auton lisääminen).

5.

Lisää vielä nappula, jonka nimeksi ButtonOK ja tekstiksi OK sekä Default- ominaisuus todeksi.

6.

Lisää OK- nappulan koodiksi:

		procedure TFormAbout.ButtonOKClick(Sender: TObject);
		begin
		  Close;
		end; 

Lomake on nyt valmis, mutta siihen ei viitata varsinaisesta lomakkeesta.

1.

Talleta About- lomakkeen tiedosto nimelle about.pas

2.

Lisää varsinaisen ohjelman menunvalintaa About seuraava koodi:

		procedure TAutolaskuri.About1Click(Sender: TObject);
		begin
		  FormAbout.Show;
		end;

3.

Kokeile ajaa ohjelmaa. Todennäköisesti saat virheilmoituksen:

		Error 3: Unknown identifier

ja kursori on sanan FormAbout alussa. Tämä johtuu siitä, ettei Autolaskuri- lomakkeen toteutuksessa ole kerrottu mitään About- lomakkeesta. Korjataan vielä tämä vika.

4.

Siirry autolask.pas - tiedostossa aivan alkuun. Sieltä löytyy uses- lause. Lisää tämän lauseen loppuun tieto siitä että käytetään myös About- lomaketta.

		uses
		  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
		  Forms, Dialogs, StdCtrls, ExtCtrls, Menus, About;

Tehtävä 1.5 Modaalinen dialogi

Muuta rivi FormAbout.Show; muotoon FormAbout.ShowModal; Mitä eroa on nyt ohjelman toiminnassa?

Tehtävä 1.6 Liikkuva auto myös toisessa dialogissa

Lisää liikkuva auto myös About- dialogiin.