cpShowMessage2


Einleitung

Mit diesem Befehl ist es möglich, ein Dialogfenster mit einer Meldung anzeigen zu lassen und zusätzlich kann man die Buttons frei wählen und abfragen.

Syntax

Befehl cpShowMessage2(sCaption,sInfo:String; iButton:Integer):Integer;
Funktion Zeigt die Zeichenfolge „sInfo“ in einem Windows Meldungsfenster mit Titel „sCaption“ und Buttons „iButton“ an.
Typ
ab 3.0.7 build 349


Codebeispiele

Einfache Zeichenfolge

begin
  cpShowMessage2('Info','Hallo' Cockpit-XP-User',1);
end.

Screen für iButton=1

begin
  cpShowMessage2('Info','Hallo , Cockpit-XP-User',2);
end.

Screen für iButton=2

begin
  cpShowMessage2('Info','Hallo , Cockpit-XP-User',3);
end.

Screen für iButton=3

Anzeige und Abfrage, welcher Button geklickt wurde

var
 iButton: Integer;

begin
  iButton:= cpShowMessage2('Info','Hallo , Cockpit-XP-User',3); 
  cpshowmessage(IntToStr(iButton));
end.

Screen

  • 6 = Ja wurde gedrückt
  • 7 = Nein wurde geklickt
  • 2 = Abbrechen wurde geklickt

Hinweise

 
cockpit-xp/addon/befehlsreferenz/cpshowmessage2.txt · Zuletzt geändert: 2022/04/13 19:53 von ralph525