[Delphi 7] formularze

[gulek5 0]

Witam, jestem początkującym w programowaniu i mam pewien problem. Otóż chcę zrobić wykres słupkowy w delphi i jak sobie wprowadzę dane w pola EDIT to jak wcisnę przycisk BUTTON który będzie mnie kierował do kolejnego formularza (FORM2) i w nowym formularzu wydrukuje mi ten wykres. I chodzi mi właśnie o to co napisać aby wynik operacji wyświetlił w nowym formularzu a nie w tym samym. Aby poruszać się pomiędzy formularzami używam funkcji np. form2.showmodal(); ale to służy tylko do przejścia a niestety nie wyświetli wyniku w nowym formie.

[januzi 24]

publiczna metoda przyjmujaca dane albo publiczny element, po ktorym mozna rysowac

[gulek5 0]

yyy mógłbyś trochę rozwinąć co dokładnie mam wpisać albo suzkać, bo nawet wpisując w google nie za bardzo wiem o co Ci chodzi.

 

Znalazłem kilka chyba prawidłowych wskazówek lecz coś nie za bardzo chcą działać. Otóż to co mam zawarte w przycisku obliczającym i rysującym wykres wygląda tak:

 

procedure TForm2.Button1Click(Sender: TObject);
var a,b,c:real;
var d,e,f:integer;
begin
canvas.Rectangle(200,100,550,300);
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=strtofloat(edit3.text);

a:=a/100*200;
d:=round(a);

b:=b/100*200;
e:=round(b);

c:=c/100*200;
f:=round(c);

canvas.Rectangle(250,300,300,300-d);
canvas.Rectangle(350,300,400,300-e);
canvas.Rectangle(450,300,500,300-f);
end;
end.

 

Wszystko działa ładnie mi rysuje wykres ale w tym samym formularzu co jest przycisk. Znalazłem na necie coś takiego:

nowa_forma.enabled:=true;
nowa_forma.FormCreate(self);
nowa_forma.show;

gdzie nowa_forma to nazwa w polu Name

Pierwsza linijka uaktywnia nowa forme, druga wyjonuje to co znajduje sie w procedurze FormCreate,czyli co wykonuje sie automatycznie po jej starcie, trzecia pokazuje forme na ekranie.
Jezeli w procedurze FormCreate nie umiescisz zadnych polecen, nie wykonuj drugiej linijki kodu bo otrzymasz komunikat bledu.

Jeżeli użyję tylko

nowa_forma.enabled:=true;

nowa_forma.show;

to po uruchomieniu programu i wciśnięciu przycisku utworzy mi nowy form (czyli jak miało być), tyle że on jest pusty, a jak dopisze linijkę

nowa_forma.FormCreate(self);

to program się nie kompiluje. Domyślam się, że chyba coś trzeba wpisać w ten nawias tylko co?

[Deadeye 0]

nowa_forma.enabled:=true;
nowa_forma.FormCreate(self);
nowa_forma.show;

nie wiem skąd wziałeś ten kod, ale on jest bez sensu

 

 

co do twojego programu - w pierwszym formie dajesz w uses nazwe drugiego unita (zapewne form2), później bierzesz ten kod:

procedure TForm2.Button1Click(Sender: TObject);
var a,b,c:real;
var d,e,f:integer;
begin
canvas.Rectangle(200,100,550,300);
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=strtofloat(edit3.text);

a:=a/100*200;
d:=round(a);

b:=b/100*200;
e:=round(b);

c:=c/100*200;
f:=round(c);

canvas.Rectangle(250,300,300,300-d);
canvas.Rectangle(350,300,400,300-e);
canvas.Rectangle(450,300,500,300-f);
end;
end.

i żeby pokazać że odwołujesz się do innego form po prostu przed każdym canvas dopisz form2. (tak że np canvas.Rectangle(200,100,550,300); zmieni się na form2.canvas.Rectangle(200,100,550,300); ).

[gulek5 0]

co do twojego programu - w pierwszym formie dajesz w uses nazwe drugiego unita (zapewne form2)

Jeszcze tylko się zapytam o jakie USES chodzi? Ponieważ szukam i szukam i nie za bardzo wiem co to jest.

[januzi 24]

http://4programmers.net/Delphi/Uses

[gates22 0]

jak piszesz program w delphi, i chcesz się odwołać do czegoś na innej formie, to wystarczy zrobić tak:

np chcesz żeby na form2 pojawił się napis z edita na form1. Robisz to tak:

na form1 wstawiasz button i edit, przykładowo. A na form2 wstawiasz label. I piszesz w zdarzeniu onClick buttona

form2.label1.caption:=edit1.text;

Nie zaprzątaj sobie głowy tym, czy dodać jakąś nazwę w USES czy nie. Jeśli tego nie zrobisz, delphi, po kliknięciu na tryb debugowania (taka zielona strzałka) zapyta, czy chcesz dodać taką właśnie nazwę do uses, bo zauważył, że jeden formularz korzysta z drugiego. Oczywiście musisz się zgodzić

Chyba że sam chcesz dodawać tę nazwę, to robisz to tam, gdzie masz słowo uses. (na samej górze listingu, pod słowem interface). Tam musisz dopisać nazwę unita z którego korzystasz. Przykładowo, jeśli nic nie zmieniałeś, to po utworzeniu nowej formy (np form2) będzie to unit2. Czyli przykładowo uses może wyglądać tak

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, unit2, StdCtrls;

 

Pozdrawiam