Morgen,
ich hoffe, ich bin hier richtig; wenn nicht, gibt es ja zum Glück eine Verschieben-Funktion.
Ich habe ein Problem mit meinem Programm. Theoretisch sollte nach Klick auf Button1 in Form 1 eine zweite Form sichtbar werden, in der ich durch einen Button eine Prozedur starte. Wenn ich aber auf den Button in Form 1 klicke und dann den Coursor aus dieser Form bewege (manchmal auch erst, wenn ich auf den Button in Form 2 klicke), erscheint das CPU-Fenster (Anhang). Ich habe zwar schon versucht, mir anzulesen, was mir das sagen will, bin aber gescheitert.
Quelltext Form 1:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
with Form2 do //In Form 2 werden die Werte eingegeben, dafür muss das Fenster manchmal ein wenig andere Ausmaße haben, die werden hier festgelegt.
begin
ClientHeight := 104; //72//104
ClientWidth := 185; //185//227
visible := true;
with edit1 do
begin
visible := true;
width := 89; //89
top := 8;
left := 80; //72
end;
with edit2 do
begin
visible := true;
width := 89;
top := 40;
left := 80;
end;
with edit3 do
begin
visible := false;
end;
with edit4 do
begin
visible := false;
end;
with button1 do
begin
visible := true;
caption := 'Zählen';
height := 25; //25
width := 165; //75
top := 72;
left := 8;
end;
with button2 do
begin
visible := false;
end;
with button3 do
begin
visible := false;
end;
with button4 do
begin
visible := false;
end;
with label1 do
begin
visible := true;
caption := 'Startwert';
top := 8;
left := 8;
end;
with label2 do
begin
visible := true;
caption := 'Endwert';
top := 40;
left := 8;
end;
end;
checkboxen; //In Form 4 werden, je nachdem, welcher Button in Form 1 geklickt wird, Checkboxen aktiviert. Die Buttons in Form 2 fragen ab, welche Checkbox aktiviert ist und führen dem entsprechend Aktionen aus. Die Prozedur Checkboxen deaktiviert erstmal alle Checkboxen
form4.checkbox1.checked:=true; //Hier wird die der Aktion zugeordneten Checkbox aktiviert.
end;
Quelltext Form2:
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);//Form2 ist die Form für die Werteeingabe
begin
Form3.visible:=true; //Form 3 ist für die Ausgabe da.
Form3.gauge1.progress:=0;
Form3.gauge2.progress:=0;
Form3.gauge3.progress:=0;
if Form4.Checkbox1.checked //Das ist durch den Klick auf Button 1 in Form 1 geschehen
then
begin
E:=strtoint(edit2.text);
for I:= strtoint(edit1.text) to E do
begin
Form3.gauge3.progress:=round((I-strtoint(edit1.text)) / (E-strtoint(edit1.text)) *100);
Form3.memo1.lines.add (inttostr(I));
end;
end;
//Hiernach geht es noch weiter mit Abfragen für alle anderen Checkboxen.
Da in der CPU was von UserBreakPoint steht, dachte ich, irgendwo sei ein Haltepunkt, habe aber in sämtlichen Formen keine gefunden.
Ich hoffe, ihr könnt mir helfen.
Danke im Voraus.
PS: Da ich in Delphi (und generell im Programmieren) relativ neu bin, wäre ich dankbar, wenn ihr euch um eine einfache Sprache bemüht; ich bin mit den Fachtermini nicht allzusehr vertraut.