[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]

udm93, il 31/08/2008 - 07:52, ha scritto:

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]

udm93, il 31/08/2008 - 13:58, ha scritto:

è 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!