Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Form Größe zur Laufzeit ändern
Grafix - Sa 24.04.10 13:57
Titel: Form Größe zur Laufzeit ändern
Siehe Titel... ist sowas möglich??? Habe ein Form, in der der User Eingaben Treffen kann. Anhand dieser soll die Größe des zweiten Forms, welches mit Form2.Show aufgerufen wird, eben angepasst werden. Ich glaub das Problem ist, dass das Form ja nicht erst erzeugt wird, wenn im ersten Form auf den Button gedrückt wird, sondern sofort beim Programmstart, oder?
Irgendwelche Ideen?
Danke ;)
lg Grafix
elundril - Sa 24.04.10 14:13
Das is egal wann du es erzeugst, fakt ist, es muss schon erzeugt sein wenn du dir größe ändern willst. ;)
Die größe kannst du einfach mit Form1.Height := 27; und Form1.Width := 27 ändern. Height ändert die Höhe des Formulars und Width die Breite des Formulars. Beide Wollen ein Integer haben. ;)
lg elundril
Webo - Sa 24.04.10 14:13
Form2.Width und From2.Height solltest du dir mal anschauen.
Edit: zu langsam :cry:
Grafix - Sa 24.04.10 14:16
 elundril hat folgendes geschrieben  : |
| Das is egal wann du es erzeugst, fakt ist, es muss schon erzeugt sein wenn du dir größe ändern willst. ;) |
D.H. ich muss die Größe dann Form.Create des selben Forms ändern? Habe es mit den Befehlen Width und Height bereits versucht, allerdings im OnPaint...
Im Form.Create funktioniert es leider auch nicht - habe es auch schon mit ClientWidth versucht - es bleibt immer gleiche Größe...
elundril - Sa 24.04.10 15:44
Wo rufst du denn das Formular auf? Gleich wenn du das Formular aufrufst davor das hinschreiben, dann sollte es funktionieren.
lg elundril
Grafix - Sa 24.04.10 19:23
Ich Rufe das Formular von einem Button aus auf. In diese Aktion, vor dem Befehl Form2.Show; habe ich nun Form2.Width := 900; deklariert jedoch immernoch ohne Erfolg?!
ALF - Sa 24.04.10 19:39
Hi, bist Du sicher das es nur 2 Forms sind! Weil irgendwie nicht nachvollziebar!?
Ansonsten gib mal Code, wo das alles passiert, sonst Raten wir nur!?
Gruss Alf
Grafix - Sa 24.04.10 19:45
Alles klar, ich poste einfach mal mein ganzes Programm:
Unit 1:
betreffende Zeilen: 128, 129
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:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
| unit UMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFMain = class(TForm)
LTitel: TLabel;
LWillkommen: TLabel;
Label1: TLabel;
CBFeldgrX: TComboBox;
Label2: TLabel;
Label3: TLabel;
CBFeldgrY: TComboBox;
GBSchiffe_Vorschlag: TGroupBox;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
LUBoote: TLabel;
LKreuzer: TLabel;
LZerstörer: TLabel;
LSchlachtschiffe: TLabel;
BSpielen: TButton;
procedure FormCreate(Sender: TObject);
procedure CBFeldgrXChange(Sender: TObject);
procedure CBFeldgrYChange(Sender: TObject);
procedure Schiffe_vorschlagen(X, Y: Integer);
procedure BSpielenClick(Sender: TObject);
private
public
end;
var
FMain: TFMain;
X, Y: Integer;
Spielfertig: Boolean;
implementation
uses UStart;
{$R *.dfm}
procedure TFMain.FormCreate(Sender: TObject);
var
I, K: Integer;
begin
for I := 0 to 10 do
begin
K := I + 10;
CBFeldgrX.Items.Add(IntToStr(K));
end;
for I := 0 to 10 do
begin
K := I + 10;
CBFeldgrY.Items.Add(IntToStr(K));
end;
X := -1;
Y := -1;
end;
procedure TFMain.Schiffe_vorschlagen;
begin
GBSchiffe_vorschlag.Visible := True;
X := X + 10;
Y := Y + 10;
if (X * Y < 196) then
begin
LUBoote.Caption := IntToStr(4);
LKreuzer.Caption := IntToStr(3);
LZerstörer.Caption := IntToStr(2);
LSchlachtschiffe.Caption := IntToStr(1);
end
else if (X * Y >= 196) and (X * Y < 289) then
begin
LUBoote.Caption := IntToStr(6);
LKreuzer.Caption := IntToStr(4);
LZerstörer.Caption := IntToStr(2);
LSchlachtschiffe.Caption := IntToStr(1);
end
else if (X * Y >= 289) and (X * Y < 400) then
begin
LUBoote.Caption := IntToStr(8);
LKreuzer.Caption := IntToStr(6);
LZerstörer.Caption := IntToStr(3);
LSchlachtschiffe.Caption := IntToStr(1);
end
else if (X * Y = 400) then
begin
LUBoote.Caption := IntToStr(8);
LKreuzer.Caption := IntToStr(6);
LZerstörer.Caption := IntToStr(3);
LSchlachtschiffe.Caption := IntToStr(2);
end;
Spielfertig := True;
end;
procedure TFMain.BSpielenClick(Sender: TObject);
var
ZweiteForm: TFStart;
begin
if (CBFeldgrX.ItemIndex <> -1) and (CBFeldgrY.ItemIndex <> -1) then
begin
ZweiteForm := TFStart.Create(nil);
try
ZweiteForm.GiveArguments1 := X + 10;
ZweiteForm.GiveArguments2 := Y + 10;
FStart.Width := 649 + X * 27 * 2;
FStart.Height := 900;
ZweiteForm.ShowModal;
finally
ZweiteForm.Free;
end;
end;
end;
procedure TFMain.CBFeldgrXChange(Sender: TObject);
begin
X := CBFeldgrX.ItemIndex;
if Y > -1 then
Schiffe_vorschlagen(X, Y);
end;
procedure TFMain.CBFeldgrYChange(Sender: TObject);
begin
Y := CBFeldgrY.ItemIndex;
if X > -1 then
Schiffe_vorschlagen(X, Y);
end;
end. |
Unit 2:
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:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
| unit UStart;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TFStart = class(TForm)
Label3: TLabel;
GBPlayer1: TGroupBox;
GBPlayer2: TGroupBox;
BeispielPanel: TPanel;
GBSchiffe_setzten: TGroupBox;
Label4: TLabel;
Label5: TLabel;
LAnzahlUBoote: TLabel;
LAnzahlKreuzer: TLabel;
LKreuzer: TLabel;
LAnzahlZerstörer: TLabel;
LZerstörer: TLabel;
LAnzahlSchlachtschiffe: TLabel;
LSchlachtschiffe: TLabel;
Label6: TLabel;
Button1: TButton;
Button2: TButton;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure BeispielPanelMouseLeave(Sender: TObject);
procedure PanelXMouseEnter(Sender: TObject);
procedure PanelXMouseLeave(Sender: TObject);
procedure BeispielPanelMouseEnter(Sender: TObject);
private
FGiveArguments1: Integer;
FGiveArguments2: Integer;
public
property GiveArguments1: Integer read FGiveArguments1 write FGiveArguments1;
property GiveArguments2: Integer read FGiveArguments2 write FGiveArguments2;
end;
var
FStart: TFStart;
implementation
uses UMain;
{$R *.dfm}
procedure TFStart.BeispielPanelMouseEnter(Sender: TObject);
begin
BeispielPanel.Color:= clRed;
end;
procedure TFStart.BeispielPanelMouseLeave(Sender: TObject);
begin
BeispielPanel.Color := clBtnFace;
end;
procedure TFStart.PanelXMouseEnter(Sender: TObject);
begin
if (Sender is TPanel) then
begin
TPanel(Sender).Color := clRed;
end;
end;
procedure TFStart.PanelXMouseLeave(Sender: TObject);
begin
if (Sender is TPanel) then
begin
TPanel(Sender).Color := clBlue;
end;
end;
procedure TFStart.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FMain.Close;
end;
procedure TFStart.FormCreate(Sender: TObject);
begin
GBPlayer1.Width := 300 + X * 27;
GBPlayer1.Height := 310 + Y * 27;
GBPlayer2.Width := 300 + X * 27;
GBPlayer2.Height := 310 + Y * 27;
GBPlayer2.Left := 314 + X * 27;
GBSchiffe_setzten.Left := 346 + X * 27;
end;
procedure TFStart.FormShow(Sender: TObject);
var
I: Integer;
MyPanel: TPanel;
K: Integer;
AnzahlUBoote, AnzahlKreuzer, AnzahlZerstörer, AnzahlSchlachtschiffe: Integer;
Pfad: String;
begin
X := FGiveArguments1;
Y := FGiveArguments2;
if (X * Y < 196) then
begin
AnzahlUBoote := 4;
AnzahlKreuzer := 3;
AnzahlZerstörer := 2;
AnzahlSchlachtschiffe := 1;
end
else if (X * Y >= 196) and (X * Y < 289) then
begin
AnzahlUBoote := 6;
AnzahlKreuzer := 4;
AnzahlZerstörer := 2;
AnzahlSchlachtschiffe := 1;
end
else if (X * Y >= 289) and (X * Y < 400) then
begin
AnzahlUBoote := 8;
AnzahlKreuzer := 6;
AnzahlZerstörer := 3;
AnzahlSchlachtschiffe := 1;
end
else if (X * Y = 400) then
begin
AnzahlUBoote := 8;
AnzahlKreuzer := 6;
AnzahlZerstörer := 3;
AnzahlSchlachtschiffe := 2;
end;
for K := 1 to Y do
begin
for I := 1 to X do
begin
Pfad := IntToStr(I + (K * X) - X);
MyPanel := TPanel.Create(Self);
MyPanel.Parent := GBPlayer1;
MyPanel.Name := 'Panel' + Pfad + 'Player1';
MyPanel.Caption := Pfad;
MyPanel.Left := 14 + (I - 1) * 27;
MyPanel.Top := 24 + (K - 1) * 27;
MyPanel.Width := 25;
MyPanel.Height := 25;
MyPanel.OnMouseEnter := PanelXMouseEnter;
MyPanel.OnMouseLeave := PanelXMouseLeave;
end;
end;
GBPlayer2.Visible := False;
GBSchiffe_setzten.Visible := True;
LAnzahlUBoote.Caption := IntToStr(AnzahlUBoote);
LAnzahlKreuzer.Visible := True;
LKreuzer.Visible := True;
LAnzahlKreuzer.Caption := IntToStr(AnzahlKreuzer);
LAnzahlZerstörer.Visible := True;
LZerstörer.Visible := True;
LAnzahlZerstörer.Caption := IntToStr(AnzahlZerstörer);
LAnzahlSchlachtschiffe.Visible := True;
LSchlachtschiffe.Visible := True;
LAnzahlSchlachtschiffe.Caption := IntToStr(AnzahlSchlachtschiffe);
end;
end. |
Da ich das hier gerade schon mal alles Gepostet habe, könntet ihr auch nochmal bitte einen Blick auf Zeile 149f werfen? Da ja offensichtlich zweimal die Variable Pfad verwendet wird, müsste ja auch zweimal das gleiche Ergebnis rauskommen - tut es aber nicht.
Bei MyPanel.Caption stimmts, bei MyPanel.Name nicht?!?! *verwirrung*
Vielen vielen Dank!!!
ALF - Sa 24.04.10 20:15
Ist es dieses was nicht funct?
Delphi-Quelltext
1:
2:
| FStart.Width := 649 + X * 27 * 2;
FStart.Height := 900; |
ändere mal um in
Delphi-Quelltext
1:
2:
| ZweiteForm.Width := 649 + X * 27 * 2;
ZweiteForm.Height := 900; |
Grafix - Sa 24.04.10 20:17
funktioniert - das war die Lösung. Danke schön!
Hat vll noch jemand was zu dem "Pfad"-Problem? *g*
ALF - Sa 24.04.10 20:23
| Grafix hat folgendes geschrieben : |
| Hat vll noch jemand was zu dem "Pfad"-Problem? *g* |
Sei jetzt nicht sauer, ein neuer thread wäre schön, nicht weil ich nicht will, sondern es kann ja auch ein andere so ein Problem haben!
Bitte mit der StringAnzeige was da unterschiedlich ist!
Gruss Alf
elundril - Sa 24.04.10 20:26
| ALF hat folgendes geschrieben : |
Sei jetzt nicht sauer, ein neuer thread wäre schön, nicht weil ich nicht will, sondern es kann ja auch ein andere so ein Problem haben!
Bitte mit der StringAnzeige was da unterschiedlich ist!
Gruss Alf |
meinst du vielleicht einen neuen thread wie diesen
hier [
http://www.delphi-forum.de/viewtopic.php?p=603424#603424]? :mrgreen:
lg elundril
ALF - Sa 24.04.10 20:36
Jo, da ging es ja um die Farbe 8)
Hier um Form.Heigt und .Width
Seine 2.Frage um Objekt.Name und Objekt.Caption :wink:
Währe ein neuer Thread wert :gruebel:
Gruss Alf
Grafix - Sa 24.04.10 22:25
Hehe ich bin nicht sauer, ich bins schon gewöhnt darauf aufmerksam gemacht zu werden, zu jedem Problem ein neuen Thread aufzumachen ;) Kommt nicht wieder vor =)
Damit kann dieser hier wohl geschlossen werden, Ursprungsproblem ist ja perfekt gelöst worden!
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 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!