infra:NET User
 
×
1.2.151 OsiMessageBox
OsiMessageBox( strMsg, strTitle, lType, lRc )
Argumente
strMsg
Nachricht, die ausgegeben werden soll.
strTitle
Überschrift
lType
Layout
Markierung mit:
 
Ok
0
OkCancel
1
AbortRetryIgnore
2
YesNoCancel
3
YesNo
4
RetryCancel 
5
Symbol mit:
 
IconHand 
16
IconQuestion
32
IconExclamation
48
IconAsterix
64
Anzeige wird systemmodal, also wird unter allen Umständen in den Vordergrund gebracht, wenn auf lType 4096 addiert wird.
Sollen z.B. die Markierungen <YesNo> mit <IconQuestion> ausgegeben werden, also dem Benutzer soll eine Frage gestellt werden, die er mit Ja oder Nein zu beantworten hat, ist <lType> 36 zuzuweisen, also 4 für <YesNo> plus 32 für <IconQuestion>.
Rückgabewert
lRc
1
Der Benutzer hat Ok gedrückt
2
Der Benutzer hat Cancel gedrückt
3
Der Benutzer hat Abort gedrückt
4
Der Benutzer hat Retry gedrückt
5
Der Benutzer hat Ignore gedrückt
6
Der Benutzer hat Yes gedrückt
7
Der Benutzer hat  No gedrückt
Beschreibung
Die Funktion gibt einen Dialog auf dem Bildschirm aus. In <strMsg> wird der eigentliche Text übergeben. <lType> bestimmt das Aussehen des Dialoges, z.B. Dialog zur Information oder als Warnung.
Die Auswahl des Benutzers wird in <lRc> zurückgegeben.
Der Rückgabewert hängt natürlich davon ab, was dem Benutzer als Möglichkeit zur Eingabe angeboten wird.
Hinweis: Zur korrekten Darstellung der Umlaute muss der Text des Dialogs im ANSI-Format (ISO) angegeben sein, nicht im ASCII-Format (DOS). Siehe auch Beispiel.
Funktionsart
Standardfunktion
Beispiel
Long(lRc);
AssignLong(lRc,0); 
OsiMessageBox( "Meldungstext ANSI 123öäü", "Überschrift", 0, lRc );
OsiMessageBox( "Nur Ok", "Osi MessageBox", 0, lRc );
OsiMessageBox( "Nur Ja Nein", "Osi MessageBox", 4,lRc );
if( lRc == 6 )
   OsiMessageBox( "Benutzer hat ja gesagt", "Osi MessageBox",0,lRc );
if( lRc == 7 )
   OsiMessageBox( "Benutzer hat nein gesagt", "Osi MessageBox",0,lRc );
OsiMessageBox("Abbrechen,Nochmals,Ignorieren", "Osi MessageBox",50,lRc );
if( lRc == 3 )
   OsiMessageBox( "Benutzer möchte abbrechen", "Osi MessageBox",0,lRc );
if( lRc == 4 )
   OsiMessageBox( "Benutzer möchte nochmals", "Osi MessageBox",0,lRc );
if( lRc == 5 )
  OsiMessageBox( "Benutzer ignoriert Warnung", "Osi MessageBox",0,lRc );
Beispiel (mit Fortsetzungszeichen)
Long(lRc);
AssignLong(lRc,0);
if( lRc != 0 )
 {
 DlgHideDialog();
 OsiMessageBox("Datei PARAMET.DAT konnte nicht vergroessert werden\n"_
    "Die Installation wird abgebrochen, Fehler PARAMET.DAT\n"_
    "Rücksicherung unbedingt erforderlich!", "Fehler XXX",4096,lRc);
 Exit();
 }