Ik heb de volgende code gemaakt om de taal van mn programma een beetje te verandere, let maar niet op ut engels, ut is meer een probeersel. Maar mijn probleem is ik start op met form7 en form1 op form7 staat een knop met de onderstaande code. Alleen er gebeurd helemaal niks.
Kan iemand mij vertellen wat er gaande is?
Alvast bedankt, grtz
Kan iemand mij vertellen wat er gaande is?
code:
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
| begin
If memo1.text=('Engels') then
begin
with FORM1 do begin
//-----|||-----Engels-----|||-----\\
//---Main form---\\
GroupBox2.caption:='Input';
GroupBox1.caption:='Wordlist';
caption:='Wordlist - Untitled';
Label1.caption:='Word';
Rduitleg.caption:='explanation';
rduitlegindex.caption:='explanation with index';
btAdd.caption:='Add';
btClear.caption:='Clear';
//---menu---\\
//--bestand---\\
Bestand1.caption:='File';
NieuweLijst1.caption:='New List';
Opslaan1.caption:='Save';
Openen1.caption:='Open';
printen1.caption:='Print';
Afsluiten1.caption:='Quit';
//--bewerken---\\
Bewerken1.caption:='Edit';
Ongedaanmaken1.caption:='Undo';
AllesSelecteren1.caption:='Select All';
Lettertype2.caption:='Font...';
CopierLijst1.caption:='Copy List';
//--Extra---\\
Extra1.caption:='Extra';
BewerkLijst1.caption:='Edit List';
MaakLijstLeeg1.caption:='Clear List';
telTekens1.caption:='Count Characters';
taal1.caption:='Language';
Nederlands1.caption:='Dutch';
Engels1.caption:='English';
//---dialogen---\\
OpenDialog1.filter:='.ard|geography|.bio|Biology|.eco|economics|.ges|History' +
'|.oth|Other';
OpenDialog1.title:='Wordlist - Untitled';
saveDialog1.filter:='.ard|geography|.bio|Biology|.eco|economics|.ges|History' +
'|.oth|Other';
form1.Show;
form1.enabled:=true;
Form7.Close;
end;
end;
If memo1.text=('Nederlands') then
begin
with FORM1 do begin
//-----|||-----Nederlands-----|||-----\\
//---Main form---\\
GroupBox2.caption:='Invoer';
GroupBox1.caption:='Begrippelijst';
form1.caption:='Begrippenlijst - Naamloos';
Label1.caption:='begrip';
Rduitleg.caption:='Uitleg';
rduitlegindex.caption:='Uitleg met index';
btAdd.caption:='Toevoegen';
btClear.caption:='wissen';
//---menu---\\
//--bestand---\\
Bestand1.caption:='Bestand';
NieuweLijst1.caption:='Nieuwe begrippenlijst';
Opslaan1.caption:='Opslaan';
Openen1.caption:='Openen';
printen1.caption:='Printen';
Afsluiten1.caption:='Afsluiten';
//--bewerken---\\
Bewerken1.caption:='Bewerken';
Ongedaanmaken1.caption:='Ongedaan Maken';
AllesSelecteren1.caption:='Alles Selecteren';
Lettertype2.caption:='Lettertype...';
CopierLijst1.caption:='Copier lijst';
//--Extra---\\
Extra1.caption:='Extra';
BewerkLijst1.caption:='Bewerk Lijst';
MaakLijstLeeg1.caption:='Maak Lijst Leeg';
telTekens1.caption:='Tel Alle Tekens';
taal1.caption:='Taal';
Nederlands1.caption:='Nederlands';
Engels1.caption:='Engels';
//---dialogen---\\
OpenDialog1.filter:='.ard|Aardrijkskunde|.bio|Biologie|.eco|Economie|.ges|Geshiedeni' +
's|.oth|Overig';
OpenDialog1.title:='Begrippenlijst - Untitled';
saveDialog1.filter:='.ard|Aardrijkskunde|.bio|Biologie|.eco|Economie|.ges|Geschiedeni' +
's|.oth|Overig';
form1.Show;
form1.enabled:=true;
Form7.Close;
end;
end;
end; |
Alvast bedankt, grtz
[ Voor 23% gewijzigd door Verwijderd op 17-06-2003 16:37 ]
/u/9258/killbill.png?f=community)
:strip_icc():strip_exif()/u/25938/lekkerkontje.jpg?f=community)
:strip_exif()/u/7759/red_cat.gif?f=community)
Dit topic is gesloten.