Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: bak - Marzo 23, 2013, 01:31:22 am

Titolo: Operazioni con due form
Inserito da: bak - Marzo 23, 2013, 01:31:22 am
Buona sera,

sto facendo il porting di un programmino fatto da me anni fa in ambiente Amiga ma nel cercare le soluzioni adeguate in Pascal sto incontrando alcuni problemi di comprensione... :-[

Sto lavorando con due form. Nel primo ci sono le caselle di input e i bottoni mentre nel secondo vengono mostrati i risultati derivati da quel che inserisco nel primo form.
Mettiamo che al lancio del programmino sia visibile il solo form1 e che nel form1 ci siano due caselle Tedit (es. Tedit1 e Tedit2) e un bottone.

Inserendo in Tedit1 il valore 10 e nel Tedit2 il valore 12 e premendo il bottone vorrei che il form1 venisse nascosto, che comparisse il form2 e il valore dato dalla moltiplicazione dei due valori inseriti (120) comparisse in una posizione ben precisa.

Sono riuscito a fare quasi tutto quello che volevo fare tranne che "stampare" il risultato nel form2.

Pensavo ad una casella Tmemo però non volevo vedere l'area del Tmemo...volevo solo vedere il numero risultante. Non riesco a trovare una soluzione.

Sperando di essermi spiegato, ringrazio si da ora chi mi darà una dritta... :)

Luca
Titolo: Re:Operazioni con due form
Inserito da: mimmolazzaro - Marzo 23, 2013, 06:54:04 am
Ciao.
Se ho capito bene, qualcosa del genere dovrebbe funzionare:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
  Form2.Label1.Caption := IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));
  Hide
end; 

Ricordati pero' di mettere sulla form2 anche un pulsante con questo codice:

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.Close
end; 
Titolo: Re:Operazioni con due form
Inserito da: xinyiman - Marzo 23, 2013, 03:35:21 pm
Citazione da: mimmolazzaro - Marzo 23, 2013, 06:54:04 am
Ciao.
Se ho capito bene, qualcosa del genere dovrebbe funzionare:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
  Form2.Label1.Caption := IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));
  Hide
end; 

Ricordati pero' di mettere sulla form2 anche un pulsante con questo codice:

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.Close
end;

Quello che proponi funziona, ma per essere pignoli io al posto del

  Form2.Show;

metterei un

  Form2.ShowModal;

Così fino a che non chiude la seconda form non può riparametrizare la prima.
Titolo: Re:Operazioni con due form
Inserito da: mimmolazzaro - Marzo 23, 2013, 04:02:59 pm
Citazione da: xinyiman - Marzo 23, 2013, 03:35:21 pm
...io al posto del

  Form2.Show;

metterei un

  Form2.ShowModal;

Se lo provi noterai dei problemi e comunque non hai il comportamento che richiedeva Luca.
Sempre per pignolare...  ;)
Titolo: Re:Operazioni con due form
Inserito da: xinyiman - Marzo 23, 2013, 04:04:54 pm
Allora mi sa che non ho capito cosa vuole luca. Comunque mi a piacere trovare un nuovo pignolone sulla community come me  ;)
Titolo: Re:Operazioni con due form
Inserito da: mimmolazzaro - Marzo 23, 2013, 04:10:37 pm
Citazione da: xinyiman - Marzo 23, 2013, 04:04:54 pm
Allora mi sa che non ho capito cosa vuole luca. Comunque mi a piacere trovare un nuovo pignolone sulla community come me  ;)

  :D
Deformazione professionale... insegnavo matematica! [Nessuno è perfetto  ;)]
In effetti la richiesta di Luca non è che sia... "professionale". Far sparire la form principale... mah. Ma io l'ho interpretata come un puro esercizio didattico e mi sono attenuto alla sua richiesta.

Ciao
Titolo: Re:Operazioni con due form
Inserito da: xinyiman - Marzo 23, 2013, 04:20:05 pm
Non avevo letto che doveva sparire. Chiedo scusa a luca.

Allora si ho proprio sbagliato a leggere.

Professore di matematica?!  :)

Di che tipo?! Superiori? Università?
Titolo: Re:Operazioni con due form
Inserito da: mimmolazzaro - Marzo 23, 2013, 04:38:29 pm
Citazione da: xinyiman - Marzo 23, 2013, 04:20:05 pm
Professore di matematica?!  :)

Di che tipo?! Superiori? Università?

Liceo (mat e fis)
Titolo: Re:Operazioni con due form
Inserito da: bak - Marzo 23, 2013, 05:19:38 pm
Intanto grazie a tutti per le risposte e per le dritte.  ;)

Appena provo vi faccio sapere!  :)

@mimmolazzaro

In che senso non "professionale"? Tu cosa mi suggeriresti?

Grazie

Luca
Titolo: Re:Operazioni con due form
Inserito da: mimmolazzaro - Marzo 23, 2013, 08:10:57 pm
Citazione da: bak - Marzo 23, 2013, 05:19:38 pm
In che senso non "professionale"? Tu cosa mi suggeriresti?

Non so quello che hai in mente, per questo pensavo che stessi facendo delle "prove". Così, a naso, io non farei sparire la form principale di un'applicazione ma se devo aprire un'altra form la aprireri modal, come suggeriva xinyiman.

Ciao
Mimmo
Titolo: Re:Operazioni con due form
Inserito da: Stilgar - Marzo 23, 2013, 10:08:00 pm
Form1.Close ha una rogna ... se è la prima form dell'applicazione fa terminare l'applicazione.
Sarebba consigliabile un Form1.hide().

Agganci alla Form2 il gestore di eventi sulla chiusura, in modo che scateni un Form1.Show().

In questo modo l'applicazione resta in piedi e si vede una sola Form attiva/visibile alla volta.
In ogni caso sembra un'applicazione dimostrativa ... io non nasconderei la main form per focalizzare l'attenzione dell'utente su una finestra di dialogo ... (visto che può essere vista anche in questo modo la Form2).

Io ho detto la mia ;) Sempre a rompere i maroni :D
Stilgar
Titolo: Re:Operazioni con due form
Inserito da: Stilgar - Marzo 23, 2013, 10:13:56 pm
Questo dovrebbe ridurre il codice al minimo minimo:
Codice: [Seleziona]
Form1.CalcolaClick()
begin
  Form2.Panel1.Caption :=  IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));
  Self.Hide;
  From2.ShowModal;
  Self.Show;
end;
Panel1 è un pannello piazzato in mezzo alla form secondaria.
Stilgar