Forum: Programmieren allgemein
by BAMatze,
10. Jun 2009
Das dumme ist, es hat bei 2 Komponenten von den 3 für (ich würde sagen) 5min funktioniert. Dann hab ich die 3 schnell fertig gemacht und dachte toll endlich geschafft und das war dann Pustekuchen. Leider hatte ich da meine neugewonnen Kenntnisse von Subversion noch nicht umgesetzt und konnte somit auch nicht nochmal auf den funktionierenden Code zugreifen :cry: und jetzt sitze ich schon wieder 1...
Forum: Programmieren allgemein
by BAMatze,
10. Jun 2009
Sorry, dass ich erst jetzt antworten kann, bin gerade erst zu Hause angekommen.
Was du sagst hab ich auch schon oft in meiner Zeit hier festgestellt, dass ich regelmäßig sogar einfach zu erkennende Fehler nicht wirklich erkenne. Hängt wohl auch damit zusammen, dass ich es selber trotz Debugger gebrauchs noch nicht gewohnt bin richtig nach Fehlern zu suchen, was ich jetzt auch genau merke.
Also...
Forum: Programmieren allgemein
by BAMatze,
10. Jun 2009
Also wenn ich in dieser Zeile einen Haltepunkt (inherited Keydown(Key, Shift)) mache, stoppt das Programm nur dann dort, wenn ich auch wirklich eine Zahl drücke. Wenn ich etwas anderes drücke scheint er nicht in diesen Zweig zu kommen, was ich ja nicht verstehe. Bei mir ist der Key dann Null und entspricht ja nicht 13 oder 27 (Enter und Escape) trotzdem wird alles im Edit ausgegeben :cry: egal...
Forum: Programmieren allgemein
by BAMatze,
10. Jun 2009
hab sie wie folgt in der Ursprungskomponente (eigentlich) auf das OnKeyDown-Event des enthaltenden TEdits gelegt:
// im Constructor (hab es aber auch schon in der CreateWnd-Funktion drin, leider keine Besserung)
constructor TLabEdit.Create(AOwner: TComponent);
...
FEdEingabe := CreateEdit(0,0, FLblAnzeige.Width + 20, FLblAnzeige.Height, FLblAnzeige.Font.Height, false);
...
Forum: Programmieren allgemein
by BAMatze,
10. Jun 2009
In der Ursprungskomponente ist mir auch etwas komisches aufgefallen, dass nämlich eine Zeile übersprungen wird. Hab sie mal markiert:
procedure TLabEdit.FEdKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
// Die Änderung hier an dieser Prozedur sehen wie folgt aus: OnChange wird nur
// aktiviert, wenn eine Eingabe getätigt wurde, die verschieden von der vorherigen
//...
