[Der Elmo]

Hallo!
Habe folgendes Problem:
Wir sollen mit Delphi7 ein Programm erstellen, dass einem eine Sinuskurve ausgibt. Eine Beispielfunktion haben wir bekommen. Hat alles geklappt, funktioniert alles. Nach den Ferien wollte unser Lehrer mit uns anfangen, dass der Benutzer das Koordinatensystem individuell verändern kann und eine beliebige Sinusfunktion eingeben kann. Das wollte ich jetzt in den Ferien schon vorarbeiten, bloß ich komme jetzt nicht weiter.

Unten auf dem angehängten Bild seht ihr eine Menüleiste in meinem Programm. Wenn man auf "Koordinatensystem" und dann auf "Anpassen" klickt, dann soll sich ein neues Fenster öffnen, in dem man dann das Koordinatensystem anpassen kann. Wie lautet der Befehl, den ich im Quelltext eingeben muss, damit ich ein neues Formular für das extra Fenster editieren kann?

Müsste ja so aussehen, glaub ich:

procedure TForm1.Anpassen1Click(Sender: TObject);
begin

Befehl um neues Formular zu erstellen

end;

oder?

MfG Elmo

Angehängte Miniaturbilder

• 

[Gast]

Hallo Der Elmo

Du erzeugst einfach ein neues Formular (Datei-> Neu -> Formular)

Aufgerufen wird das neue Fenster so:

procedure TForm1.Anpassen1Click(Sender: TObject);
begin
 Form2.Show; //oder ShowModal
end;

Nicht vergessen die Unit des neuen Formulars unter uses eintragen!

[Der Elmo]

Danke, klappt einwandfrei!
Der Rest dürfte jetzt wieder einfach sein.

[Der Elmo]

Hab festgestellt, dass ich doch noch 'n Problem habe.
In dem zweiten Formular habe ich dann ein Edit. Die Zahl, die dort eingegeben wird, soll in der Unit1 verarbeitet werden. Mit dem Befehl x:=StrToFloat(Edit1X.Text); komme ich da nicht weit. Da meckert Delphi rum.
Welchen Befehl muss ich benutzen?

MfG Elmo

[Sorry für Doppelpost]

Dieser Beitrag wurde von Der Elmo bearbeitet: 05. Februar 2008 - 21:44

[Gast]

Hallo Der Elmo

Damit du auf das 2. formular zugreifen kannst mußt du wiederum das Erste einbinden:

.
.
.
var 
 Form2: TForm2;

implementation

{$R *.dfm}

uses Unit1;
.
.
.

Auswerten kannst du es dann so:

x:=StrToFloat(Form2.Edit1.Text);

[Der Elmo]

Das haut trotzdem noch nicht so hin, wie ich das will.
Könntest du mir eventuell deine E-Mailadresse geben? Ich würde dir das ganze Projekt mal rüberschicken, dass du dir das mal alles anschauen könntest und mir dann den Quelltext korigieren würdest. Würdest du das machen?