Forum: Programmieren allgemein
by Davidlocke13,
4. Dez 2012
genau mit dem teil hat es ja Probleme gemacht es hat zwar alles markiert aber aber die 12 nicht überschrieben. 12 + eine einstellige Zahl !
Ich habe die 12 durch die 0 ersetzt und das alles markieren raus geschmissen jetzt bleibt zwar noch die O drin aber ich kann eine beliebig lange zahl
hinter kloppen und 08 ist dann halt auch wie 8
Forum: Programmieren allgemein
by Davidlocke13,
4. Dez 2012
So habe das jetzt in der Zwischenzeit anders gelöst :-)
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
with Sender as TSpinEdit do
begin
if Text = '' then Text := '0';
SelStart := Length(Text);
end;
begin
Forum: Programmieren allgemein
by Davidlocke13,
4. Dez 2012
Bei Popov Vorschlag gibt es nur ein Problem.
Es wird zwar die 12 markiert aber nicht überschreiben, da hängt der einfach meine Zahl an die 12 rann!
Also so etwa 129
Forum: Programmieren allgemein
by Davidlocke13,
3. Dez 2012
Mein Code:
private
FUpdating: Boolean;
function CurrText: TTextAttributes;
function TForm1.CurrText: TTextAttributes;
begin
if RichEdit1.SelLength > 0 then Result := RichEdit1.SelAttributes
else Result := RichEdit1.DefAttributes;
end;
Forum: Programmieren allgemein
by Davidlocke13,
3. Dez 2012
bei mir gibt es aber eine Fehlermeldung ! das liegt daran das wenn ich eine 1 rein schreibe der das Teil sofort auf Schriftgröße 1 Macht und wenn ich nix eingebe kann der auch auf keine Schriftgröße machen und schwups habe ich einen Fehler
Forum: Programmieren allgemein
by Davidlocke13,
3. Dez 2012
Die Anderen Sachen klappen zwar alle und mein Fehler war bei ' ' sollte so sein '', aber es ist halt doch recht unpraktisch !
Also wenn ich '' eingebe soll der das ignorieren bis ein Wert kommt ! Das währe am besten :wink:
Forum: Programmieren allgemein
by Davidlocke13,
3. Dez 2012
Lehr habe ich gemeint nix drin also '' :wink:
Forum: Programmieren allgemein
by Davidlocke13,
3. Dez 2012
Ja stimmt, da währe es eigentlich besser das der die Eingabe ignoriert bis ich aus dem SpinEdit raus klicke oder Enter drücke :wink:
Forum: Programmieren allgemein
by Davidlocke13,
3. Dez 2012
Ja es bewegt sich ja bei mir auch zwischen 1 und 800.
Nur wenn ich da einen wert per Tastatur eintrage und vorher das Teil lehre zeigt der mir bei ' ' also Lehr einen Fehler an,
deshalb will ich im für ' ' sagen das er '12' nehmen soll.
Forum: Programmieren allgemein
by Davidlocke13,
3. Dez 2012
Wie kann ich meinem SpinEdit für ' ' den Wert '12' zuordnen ?
habe schon folgendes Probiert:
if SpinEdit1.Text = ' ' then
SpinEdit1.Text := '12';
klappt nur leider nicht !
LG