| Autor |
Beitrag |
Michael15
Beiträge: 76
Win XP Professional
Delphi 2, 3, 7, 8
|
Verfasst: Sa 19.02.05 18:18
Hallo leute!!!
Wie kan man es schaffen, dass beim Klicken des letzten Buttons der Formhintegrund grün wird und alle Buttons verschwinden?
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:
| procedure wolf_klick;
begin
form1.color := clblack;
form1.label1.caption := '';
Zaehler := Zaehler+1;
if Zaehler = 2 then
begin
form1.label1.font.color := clred;
form1.label1.color := clblack;
form1.label1.caption := 'Mmmh Donauwellen, ich liebe Donauwellen ...';
end;
if Zaehler = 4 then
begin
form1.label1.font.color := clred;
form1.label1.color := clblack;
form1.label1.caption := 'Dreh´ dich mal um, Püppchen!!!';
end;
if Zaehler = 6 then
begin
form1.label1.font.color := clred;
form1.label1.color := clblack;
form1.label1.caption := 'Ganz recht, ein Wolf. ';
end;
if Zaehler = 8 then
begin
form1.label1.font.color := clred;
form1.label1.color := clblack;
form1.label1.caption := 'Ich bin scharf auf deine Donauwellen...';
end;
if Zaehler = 10 then
begin
form1.label1.font.color := clred;
form1.label1.color := clblack;
form1.label1.caption := 'Jaja, du bist aber n ganz schlaues Exemplar!!!';
end;
if Zaehler = 12 then
begin
form1.label1.font.color := clred;
form1.label1.color := clblack;
form1.label1.caption := 'Haha, sonst muss ich dich leider fressen';
end;
if Zaehler = 14 then
begin
form1.label1.font.color := clred;
form1.label1.color := clblack;
form1.label1.caption := 'Doch, doch oder du gibst mir eine ab...';
end;
if Zaehler = 16 then
begin
form1.label1.font.color := clred;
form1.label1.color := clblack;
form1.label1.caption := 'Freunde ?!? ... Wir ... Freunde ???';
end;
if Zaehler = 18 then
begin
form1.label1.font.color := clred;
form1.label1.color := clblack;
form1.label1.caption := 'Ja meinetwegen, pack aber schon mal den Picknickkorb';
end;
end; |
Moderiert von  Christian S.: Delphi-Tags hinzugefügt.
|
|
jornbyte
Hält's aus hier
Beiträge: 15
|
Verfasst: Sa 19.02.05 18:27
Damit sind die weg.
  Delphi-Quelltext
1:
2:
| TForm1.Button1.Visible:=False
TForm1.Button2.Visible:=False | _________________ mfg jornbyte
|
|
Michael15 
Beiträge: 76
Win XP Professional
Delphi 2, 3, 7, 8
|
Verfasst: Sa 19.02.05 18:27
Aber wo muss man sie eingeben???
|
|
Kroni
Beiträge: 720
Win 98, Win ME, Win2k, Win XP
D3 Pro
|
Verfasst: Sa 19.02.05 18:34
ich nehme an, dass du ein Buttonb klickst, un beim letzen mal den Button klicken, dass dann der Zähle 16 ist???????? also dann wäre es bei if zähler=16 then button1.visible:=true ich weiß nur noch nich so recht, was du vorhast^^
|
|
mikeyboy
Beiträge: 96
WIN XP
D6 Pers
|
Verfasst: Sa 19.02.05 18:36
Du gibst das in der procedure des letzten ButtonOnClick Events ein!
Also z.B. :
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.Button5Click(Sender: TObject);
begin
Form1.Color := clgreen;
Button1.visible := false;
Button2.visible := false;
end; |
|
|
Michael15
Beiträge: 76
Win XP Professional
Delphi 2, 3, 7, 8
|
Verfasst: Sa 19.02.05 18:42
Wie kann ich euch eine zip file mit dem Problem schicken???
|
|
mikeyboy
Beiträge: 96
WIN XP
D6 Pers
|
Verfasst: Sa 19.02.05 18:44
Schreib mal deinen GANZEN Quelltext rein! 
Was meinst mit zip file schicken??
|
|
Michael15
Beiträge: 76
Win XP Professional
Delphi 2, 3, 7, 8
|
Verfasst: Sa 19.02.05 18:45
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:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
| unit prog05;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
var Zaehler : integer;
ali : string;
procedure stop_klick;
begin
showMessage ('Produced by Michael Wentker');
halt;
end;
procedure wolfi;
begin
form1.button1.visible := true;
form1.button2.visible := false;
form1.button3.visible := false;
form1.label1.visible := false;
form1.color := clgreen;
end;
procedure rotkaeppchen_klick;
begin
form1.color := clred;
form1.label1.caption := '';
Zaehler := Zaehler+1;
if Zaehler = 1 then
begin
form1.label1.font.color := clblack;
form1.label1.color := clred;
form1.label1.caption := 'Großmutter wird sich über die Donauwellen bestimmt freuen...';
end;
if Zaehler = 3 then
begin
form1.label1.font.color := clblack;
form1.label1.color := clred;
form1.label1.caption := 'Wer waaar dass???';
end;
if Zaehler = 5 then
begin
form1.label1.font.color := clblack;
form1.label1.color := clred;
form1.label1.caption := '(Rotkäppchen dreht sich um...): HILFE!!! EIN WOLF!!!';
end;
if Zaehler = 7 then
begin
form1.label1.font.color := clblack;
form1.label1.color := clred;
form1.label1.caption := 'Was wollen sie von mir???';
end;
if Zaehler = 9 then
begin
form1.label1.font.color := clblack;
form1.label1.color := clred;
form1.label1.caption := 'Aufff ... mee...eine Donauwellen??? ';
end;
if Zaehler = 11 then
begin
form1.label1.font.color := clblack;
form1.label1.color := clred;
form1.label1.caption := 'Aber die sind doch für meine Omi, die kann ich dir nicht geben';
end;
if Zaehler = 13 then
begin
form1.label1.font.color := clblack;
form1.label1.color := clred;
form1.label1.caption := 'Bitte fress` mich nicht.';
end;
if Zaehler = 15 then
begin
form1.label1.font.color := clblack;
form1.label1.color := clred;
form1.label1.caption := 'Gut, ich geb` die eine ab, aber dann sind wir Freunde';
end;
if Zaehler = 17 then
begin
form1.label1.font.color := clblack;
form1.label1.color := clred;
form1.label1.caption := 'ja, einfach nur Freunde...';
end;
end;
procedure wolf_klick;
begin
form1.color := clblack;
form1.label1.caption := '';
Zaehler := Zaehler+1;
if Zaehler = 2 then
begin
form1.label1.font.color := clred;
form1.label1.color := clblack;
form1.label1.caption := 'Mmmh Donauwellen, ich liebe Donauwellen ...';
end;
if Zaehler = 4 then
begin
form1.label1.font.color := clred;
form1.label1.color := clblack;
form1.label1.caption := 'Dreh´ dich mal um, Püppchen!!!';
end;
if Zaehler = 6 then
begin
form1.label1.font.color := clred;
form1.label1.color := clblack;
form1.label1.caption := 'Ganz recht, ein Wolf. ';
end;
if Zaehler = 8 then
begin
form1.label1.font.color := clred;
form1.label1.color := clblack;
form1.label1.caption := 'Ich bin scharf auf deine Donauwellen...';
end;
if Zaehler = 10 then
begin
form1.label1.font.color := clred;
form1.label1.color := clblack;
form1.label1.caption := 'Jaja, du bist aber n ganz schlaues Exemplar!!!';
end;
if Zaehler = 12 then
begin
form1.label1.font.color := clred;
form1.label1.color := clblack;
form1.label1.caption := 'Haha, sonst muss ich dich leider fressen';
end;
if Zaehler = 14 then
begin
form1.label1.font.color := clred;
form1.label1.color := clblack;
form1.label1.caption := 'Doch, doch oder du gibst mir eine ab...';
end;
if Zaehler = 16 then
begin
form1.label1.font.color := clred;
form1.label1.color := clblack;
form1.label1.caption := 'Freunde ?!? ... Wir ... Freunde ???';
end;
if Zaehler = 18 then
begin
form1.label1.font.color := clred;
form1.label1.color := clblack;
form1.label1.caption := 'Ja meinetwegen, pack aber schon mal den Picknickkorb aus';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
stop_klick;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
rotkaeppchen_klick
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
wolf_klick
end;
end. |
Moderiert von raziel: Delphi-Tags hinzugefügt.
|
|
mikeyboy
Beiträge: 96
WIN XP
D6 Pers
|
Verfasst: Sa 19.02.05 18:51
Ok und jetzt sagst ma nu schnell welcher button die anderen unsichtbar schalten soll??
|
|
Michael15
Beiträge: 76
Win XP Professional
Delphi 2, 3, 7, 8
|
Verfasst: Sa 19.02.05 18:57
Wenn das Gespräch zwische Rotkäüppchen und Wolf zuz Ende ist sollen alle Button bis auf den ersten verschwinden und der Hintegrund der form grün werden.
Danke
|
|
mikeyboy
Beiträge: 96
WIN XP
D6 Pers
|
Verfasst: Sa 19.02.05 19:01
ok wenn ich jetzt richtig verstanden hab möchtest du nachdem der wolf das mitn picknickkorb sagt und jemand drückt auf das rotkäppchen die buttons verschwinden und der hintergrund grün wird?? Richtig??
|
|
Michael15
Beiträge: 76
Win XP Professional
Delphi 2, 3, 7, 8
|
Verfasst: Sa 19.02.05 19:04
richtig erfasst.
Danke nun fehlt nur noch die Lösung
|
|
mikeyboy
Beiträge: 96
WIN XP
D6 Pers
|
Verfasst: Sa 19.02.05 19:12
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:
| procedure rotkaeppchen_klick;
begin
form1.color := clred;
form1.label1.caption := '';
Zaehler := Zaehler+1;
if Zaehler = 1 then
begin
form1.label1.font.color := clblack;
form1.label1.color := clred;
form1.label1.caption := 'Großmutter wird sich über die Donauwellen bestimmt freuen...';
end;
if Zaehler = 3 then
begin
form1.label1.font.color := clblack;
form1.label1.color := clred;
form1.label1.caption := 'Wer waaar dass???';
end;
if Zaehler = 5 then
begin
form1.label1.font.color := clblack;
form1.label1.color := clred;
form1.label1.caption := '(Rotkäppchen dreht sich um...): HILFE!!! EIN WOLF!!!';
end;
if Zaehler = 7 then
begin
form1.label1.font.color := clblack;
form1.label1.color := clred;
form1.label1.caption := 'Was wollen sie von mir???';
end;
if Zaehler = 9 then
begin
form1.label1.font.color := clblack;
form1.label1.color := clred;
form1.label1.caption := 'Aufff ... mee...eine Donauwellen??? ';
end;
if Zaehler = 11 then
begin
form1.label1.font.color := clblack;
form1.label1.color := clred;
form1.label1.caption := 'Aber die sind doch für meine Omi, die kann ich dir nicht geben';
end;
if Zaehler = 13 then
begin
form1.label1.font.color := clblack;
form1.label1.color := clred;
form1.label1.caption := 'Bitte fress` mich nicht.';
end;
if Zaehler = 15 then
begin
form1.label1.font.color := clblack;
form1.label1.color := clred;
form1.label1.caption := 'Gut, ich geb` die eine ab, aber dann sind wir Freunde';
end;
if Zaehler = 17 then
begin
form1.label1.font.color := clblack;
form1.label1.color := clred;
form1.label1.caption := 'ja, einfach nur Freunde...';
end;
begin
form1.color := clgreen;
Button2.visible := false;
Button3.visible := false;
end;
end. |
Moderiert von raziel: Quote- in Delphi-Tag, Color- in Highlight-Tag geändert.
|
|
Michael15
Beiträge: 76
Win XP Professional
Delphi 2, 3, 7, 8
|
Verfasst: Sa 19.02.05 19:14
Danke mikeyboy wenn ich noch fragwen habe melde ich mich
|
|
mikeyboy
Beiträge: 96
WIN XP
D6 Pers
|
Verfasst: Sa 19.02.05 19:26
Hats geklappt??
Ja mach das!! 
|
|
Michael15
Beiträge: 76
Win XP Professional
Delphi 2, 3, 7, 8
|
Verfasst: Sa 19.02.05 19:40
Ja danke hat geklappt, aber habe noch ne frage:
Du kennst doch bestimmt den befehl (showMessage).
Wenn man ihn benutzt erscheint die Nachrciht in einem Kasten dessen Leiste den Projektnamen trägt.
Weißt du, wie man ihn ändert???
|
|
OneOfTen
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Sa 19.02.05 19:56
wie war das? neue Frage, neuer Thread? 
probier mal vor dem Aufruf der showMessage das aus
Delphi-Quelltext
1:
| Application.Title := 'Wer bist denn du?" |
|
|
Michael15
Beiträge: 76
Win XP Professional
Delphi 2, 3, 7, 8
|
Verfasst: Sa 19.02.05 21:47
danke, aber ich würde gerne noch wissen, wie man das showmessage fenster größer macht, damit der titel ganz sichtbar ist. danke
|
|
