Objekte Bewegen

[Finki]

Wow vielen dank das ist mal echt interessant.

Zu deinen beiden Lösungsmöglichkeiten, die funktionieren beide nicht:

der erste geht zwar aber man kann ein Label nicht auswählen (obwohl enabled), was wahrscheinlich daran liegt das, wie ihr mir ja schon gesagt habt, kein TWinControl ist.

der zweite Quelltext verursacht ein Fehler in der Zeile:

     meinControl := Sender as TControl; Fehler siehe Bild

[DeddyH]

Und bei
meinControl := TControl(Sender);

[Finki]

ach ich dachte des wäre ein Fehler deinerseits, sry, ne dann meckert er(der Kompiler) rum, weil er ein TObject bekommen hat und ein TWinControl erwartet

[DeddyH]

Das verstehe ich nicht, habe hier aber auch kein Lazarus zur Verfügung. Ich könnte das höchstens zu Hause einmal ausprobieren, das wird aber vor heute Abend nichts.

[Finki]

Das wäre echt net. Ganz kurz noch, vielleicht kannst du mir was anderes beantworten.

und zwar arbeite ich gerade daran das man sieht wie viel zeichen man geschrieben hat.
StatusBar.Panels.Items[1].Text := Format('%d Zeichen', [Length(Memo1.Text)-(2*Memo1.Lines.Count)+1]); // 2*Anzahl der Zeillen weil der Umbruch Befehl als zwei Zeichen gezählt wird das Problem ist das Sonderzeichen wie ß ü ö ä, usw. sind zwei Zeichen.

Gibt es einen "einfachen" Weg wie ich das vermeinden kann, also das sie als ein Zeichen gezählt werden?

[DeddyH]

Ehrlich gesagt verstehe ich Deinen ganzen Rechenweg nicht. Was ist denn mit WordWrap und solchen Dingen? Ich würde mir eher die Länge des Textes merken und später dann die aktuelle Textlänge mit der gemerkten vergleichen.

[Finki]

Was bitte genau ist des WordWrap, des hab ich immer noch nicht geschnallt (auch nach wiederholtem googlen).