Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - neues Fenster erstellen
MH1987 - Sa 07.10.06 16:29
Titel: neues Fenster erstellen
hi,
ich möchte in meinem programm ein 2tes Fenster per klick auf ein button öffnen lassen.
hab bisher diesen ansatz, hab aber leider nicht die ahnung wie das richtig funktionieren soll:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
| 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
public
end;
TForm2 = class(TForm)
end;
var
Form1: TForm1;
neu: TForm2;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
neu:= TForm2.Create(Form1);
neu.Width:= 100;
neu.Visible:= true;
end;
end. |
wäre nett wenn mit jemand weiterhelfen könnte!
gruß
Matthias
Moderiert von 
Gausi: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Sa 07.10.2006 um 16:33
rizla - Sa 07.10.06 16:33
hi
Delphi-Quelltext
1:
2:
3:
4:
5:
| var form2: TForm2;
begin
form2 := TForm2.create(application);
form2.show(modal);
form2.release; |
gruß :r:
Gausi - Sa 07.10.06 16:33
Warum erstellst du nicht zur Designzeit über Datei->Neu->Fenster ein neues Fenster in deiner Anwendung und lässt es dir über Form2.Show; anzeigen?
MH1987 - Sa 07.10.06 16:35
dankee für die ganzen schnellen antowrten! das ist echt toll!
werds direkt mal probieren
Dankee
Gruß
Matthias
rizla - Sa 07.10.06 16:41
hinweis:
show öffnet das neue fenster
showmodal auch, aber das neue fenster behält den focus, bis es geschlossen wird.
such mal in der hilfe nach showmodal
release gibt den speicher wieder frei, nachdem das fenster geschlossen wurde
:r!a:
MH1987 - Sa 07.10.06 16:46
es kommt jedoch ein fehler bei der zeile:
Delphi-Quelltext
1:
| form2 := TForm2.create(application); |
fehler: EResNotFound
so sieht der ganze quelletxt aus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
| 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
public
end;
TForm2 = class(TForm)
end;
var
Form1: TForm1;
form2: TForm2;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var form2: TForm2;
begin
form2 := TForm2.create(application);
form2.show;
form2.release;
end;
end. |
rizla - Sa 07.10.06 16:48
uses..
unit2
muss auch noch rein! sonst weiß delphi ja net, was form2 ist..
MH1987 - Sa 07.10.06 16:53
soo
jetzt klappts endlich...
vielen dank!!
Gruß
Matthias
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!