Hi,
ich habe ein kleines Denkproblem mit einem Pascalprogramm. Und zwar soll ein
Menü angezeigt werden. Bei Auswahl wird eine Prozedur ausgelöst. Sobald diese
beendet ist soll das Programm wieder im Hauptmenü landen. Das tut aber
nicht. Hier der Quelltext:
Delphi-Quellcode:
procedure sending;
var
itemid : integer;
cmdQuit, cmdNext : command;
name : string;
begin
ShowForm;
itemId := FormAddTextField('Geben sie die Empfängernummer ein:', '', 20, TF_PHONENUMBER);
cmdNext := CreateCommand('Weiter',CM_OK,1);
AddCommand(cmdNext);
repeat until GetClickedCommand = cmdNext;
name := FormGetText(itemId);
if sms.send('sms://'+ name,'Hallo Welt!') = 0 then
debug('error sending');
else
begin
Showcanvas;
DrawText('SMS wurde gesendet',0,0);
Repaint;
delay(5000);
end;
end;
begin
showMenu('Hauptmenü:', CH_IMPLICIT);
einstellungen := menuAppendString('Einstellungen');
programmierung := menuAppendString('Programmierung');
info := menuAppendString('Info');
auswahl := CreateCommand('Auswahl', CM_OK, 1);
AddCommand(auswahl);
ende := CreateCommand('Beenden', CM_EXIT, 1);
AddCommand(ende);
repeat clicked := GetClickedCommand;
if clicked = auswahl then
begin
if menuGetSelectedIndex = einstellungen then PlayAlertSound;
if menuGetSelectedIndex = programmierung then sending;
if menuGetSelectedIndex = info then PlayAlertSound;
end;
until clicked = ende;
end.
Viele Grüße...