Klasse erweitern

Öffnen Sie das Paket MeineBildschirme.

Ändern Sie das Klassendiagramm wie folgt:

  • Klasse StartForm
    • Attribut: txtWelcome in ergebnis ändern
    • Attribut: btnEnde in btnMsgBox ändern

Quelltext ergänzen

StartForm::onInit
Rect r( 20, 250, 200, 50 );
ergebnis.createControl(this, r, "Ergebnis:..." );
 
r.top    = 20;
r.height = 0;	// default -> PA
r.width  = 100;
 
btnMsgBox.clickEvent = 'm';
btnMsgBox.createControl(this, r, "MessageBox" );
StartForm::onEvent
if (nr=='m')
{
	MsgBox* msgbox = new MsgBox;
	msgbox->text = "Das ist eine MessageBox\n Alles Gut?";
	msgbox->style= "yn";
	msgbox->closeEvent = 'M';
	app.gui.show( msgbox );
}
 
if ( nr=='M' )
{
	ergebnis.text="Die MessageBox wurde mit &W"+gPopup->text+"&w beendet.";
	ergebnis.paint();
}

Testen

Erstellen und übertragen sie das Programm auf den Mikrocontroller. Wenn Sie das Paket MeineBildschirme als neues Fenster geöffnet haben, können Sie jetzt zwischen den Fenstern umschalten um die Anwendung zu erstellen. Oder sie betätigen auf dem Titel-Tabulator der Anwendung die rechte Maustaste und erhalten dort das Aktionsmenü des entsprechenden Diagramms. So können Sie die Anwendung auch ohne Umschalten der Fenster erstellen.

Testen Sie die Funktion der Schaltflächen und vergleichen Sie das Ergebnis mit dem Quelltext.

weiter mit

messagebox.txt · Zuletzt geändert: 2014/01/23 14:23 von huwi