[midletpascal] Creare Tasto "indietro"

[udm93]

Ragazzi ho un piccolo problema con midletpascal......mi serve un aiuto

Non so creare il tasto indietro o quello per ritornare al menù....qualcuno gentilmente può dirmi come si fa?

Grazie.

[udm93]

Per favore,c'è qualcuno che mi aiuti???

[memoryn70]

Per favore,c'è qualcuno che mi aiuti???

Qui il midletpascal non è utilizzato molto...ti consiglio di aver pazienza!

Magari usa google...

[udm93]

è da tanto che cerco una risposta....anche su google, ma non la trovo!

[Oper]

è da tanto che cerco una risposta....anche su google, ma non la trovo!

Var
 C : Command;
 A1, B1, B2, B3, C1, D1 : Command;

procedure crea_comandi;
begin
A1 := CreateCommand('Info', CM_SCREEN, 1);
B1 := CreateCommand('Imposta', CM_SCREEN, 1);
B2 := CreateCommand('Rimuovi', CM_SCREEN, 1);
B3 := CreateCommand('Esci', CM_SCREEN, 1);
C1 := CreateCommand('Vedi', CM_STOP, 1); 
AddCommand(A1);
AddCommand(B1);
AddCommand(B2);
AddCommand(B3);
AddCommand(C1);
 end;
procedure rimuovi_comandi;
begin
RemoveCommand(A1);
RemoveCommand(B1);
RemoveCommand(B2);
RemoveCommand(B3);
RemoveCommand(C1);
end;

crea_comandi;

D1 := CreateCommand('Esci', CM_EXIT, 1);

C := getClickedCommand;

If C = C1 then
  begin
	leggi (0);
  end;
else if C = A1 then
  begin
	about;
  end;
else if C = B1 then
  begin
	imposta;
  end;
else if C = B2 then
  begin

  end;
else if C = B3 then
  begin
	 halt;
  end;

[udm93]

grazie oper....adesso provo

[udm93]

non ci riesco, cmq grazie dell'aiuto!