Neue Form öffnen durch Button

[Thendo]

Morgen^^,

hoffe ihr könnt mir helfen:

Also ich möchte folgendes machen:

Programm start -> Auf Button klicken -> Neue Form öffnen

Meine Frage ist wie ich es mache das wenn ich auf den Button klicke er die andere Form öffnet (nicht als 2t Fenster)


Danke schonmal für die Hilfe^^


MfG Thendo

[DeddyH]

Hallo und Willkommen in der DP :dp:,

was meinst Du mit "nicht als 2t Fenster"?

[Die Muhkuh]

Vielleicht will er die Form mit dem Button schließen und eine andere Form aufmachen?

[DeddyH]

Wenn das aufrufende Fenster die Mainform ist, ist das mit dem Schließen aber keine gute Idee.

[Die Muhkuh]

Dann halt nur verstecken. :stupid:

[toms]

Vielleicht so?

Delphi-Quellcode:

Form1.Hide
Form2.Show

[Thendo]

Zitat:

Zitat von DeddyH

Hallo und Willkommen in der DP :dp:,

was meinst Du mit "nicht als 2t Fenster"?

Danke danke^^

Also ich meine das so:

Wenn man auf den Button klickt kommt Form2 und Form1 is weg. Und dan ist da halt zeugs xD und wieder ein Button zurück zur Haupt"seite".

Zitat:

Zitat von toms

Vielleicht so?

Delphi-Quellcode:

Form1.Hide
Form2.Show

Ich werds versuchen danke^^




Thx@All Werd mich gleich wieder melden^^

[Thendo]

Hab jetzt mit Show und Hide probiert aber bekomm jetzt mehrere Fehler:

Zitat:

[DCC Fehler] Unit1.pas(11): E2029 ',' oder ':' erwartet, aber '=' gefunden
[DCC Fehler] Unit1.pas(22): E2003 Undefinierter Bezeichner: 'TForm2'
[DCC Fehler] Unit1.pas(24): E2029 'END' erwartet, aber 'IMPLEMENTATION' gefunden
[DCC Fehler] Unit1.pas(26): F2092 Das Programm oder die Unit 'Unit1' ruft sich selbst wieder auf

Hier ist der Quelltext dazu:

Zitat:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
TForm2 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
Form2: TForm2;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

Form1.Hide
Form2.Show

end;

end.

Hoffe jemand kann mir helfen^^

[mkinzler]

TForm2 = class(TForm)

[DeddyH]

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  { Private-Deklarationen }
  public
  { Public-Deklarationen }
  end;

var
  Form1: TForm1;

  
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Hide;
  Form2.Show;
end;

end.

[Thendo]

Jetzt klappt es =D Danke

Hab aber jetzt ein Problemm wenn ich eine rechnung(: rechnen^^) programmieren will

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var
zahl1, zahl2, ergebnis: integer;
begin
zahl1:=StrToInt(Edit1.Text);
zahl2:=StrToInt(Edit2.Text);
ergebnis:= zahl1/zahl2;
Edit3.Text:=IntToStr(ergebnis);

end;

end.

Und Fehlermeldung:
[DCC Fehler] Unit4.pas(39): E2010 Inkompatible Typen: 'Integer' und 'Extended'
[DCC Fehler] Project1.dpr(10): F2063 Verwendete Unit 'Unit4.pas' kann nicht compiliert werden

[mkinzler]

Delphi-Quellcode:

ergebnis:= zahl1 DIV zahl2;

[DeddyH]

Mit / berechnest Du Gleitkommazahlen, also muss ergebnis auch eine Gleitkommazahl sein.

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var
  zahl1, zahl2 : integer;
  ergebnis: extended;
begin
  zahl1:=StrToInt(Edit1.Text);
  zahl2:=StrToInt(Edit2.Text);
  ergebnis:= zahl1/zahl2;
  Edit3.Text:=FloatToStr(ergebnis);
end;

[edit] P.S.: gewöhn Dir mal eine gescheite Einrückung an, dann kann man den Code viel besser lesen. [/edit]

[haentschman]

Hallo...

die Funktion DIV ergibt immer eine Ganzzahl.
solltest du auch Nachkommastellen im Ergebnis darstellen, ist für dich die Funktion FloatToStr( ) interressant.

:hi:

PS: ich sollte schneller schreiben lernen... :( DeddyH hat alles gesagt.

PS2: noch nicht mal einen Edit kriegt man bei Ihm schnell genug hin. :evil: :wink:

[DeddyH]

Siehe #13 :zwinker:

[Thendo]

Danke^^

jetzt erstma Quellcode schöner machen und alles auf extended machen =D

[DeddyH]

Du solltest aber auch Fehlerbehandlungen einbauen. Z.B. kann es zu einer Division durch 0 kommen.

[Thendo]

Grad geguckt:

"Floating point devision by zero"

ich denke das meinst du^^
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~

Wie meinst du das mit Fehlerbehandlung und wie mach ich das xD?

if-schleife?



MfG Thendo


PS: x ist doch für Mal-Rechnen oder^^?

[mkinzler]

Entweder in try..except-Block oder vorher kontrollieren

[Apollonius]

Was ist eigentlich aus der Regel "neue Frage, neuer Thread" geworden?

[mkinzler]

In diese, Fall hat es ja etwas mit dem Thema bzw. einer Antwort zu tun

[Thendo]

Zitat:

Zitat von mkinzler

Entweder in try..except-Block oder vorher kontrollieren

Wärst du so nett und könntest du das für mich erläutern^^

[mkinzler]

Was sagt den die Delphi-Hilfe dazu? :zwinker:

[Thendo]

Was wie wo xD?

[mkinzler]

Du kennst die F1-Taste oder?
Sonsz
http://docs.codegear.com/docs/radstu.../contents.html

[Thendo]

Bis gerade nicht xD

Erstma da durchwühlen^^