So noch mal zum Editfeld, wie kann ich den (Eingabe-)Curser, oder wie auch immer das Ding heißt an das Ende des Textes im Editfeld setzen?

Hallo,

ganz einfach
       SendMessage (Edit1.Handle, WM_KEYDOWN, VK_END, 0);

Danke an alle, die mir dabei geholfen haben, das kleine Prob zu lösen

zusammenfalten · markieren

Delphi-Quellcode:

procedure TFrmEinstellungen.edtintervalChange(Sender: TObject);
var i, Laenge: Integer;
    EdtText:string;
begin
 //Prüfen ob nur Zahlen in das Editfeld eingegeben werden, falls nicht lösche das letzte Zeichen
 for i:=1 to length(EdtInterval.Text) do
  If not(EdtInterval.Text[i] in [#48..#57]) Then
  Begin
   MessageDlg('Das Intervall muss ein Ganzzahl sein', mtWarning, [mbok], 0);

   Laenge:= length(EdtInterval.Text);

   EdtText:= copy(EdtInterval.Text,0,(Laenge-1));

   EdtInterval.Text:= EdtText;
   SendMessage (EdtInterval.Handle, WM_KEYDOWN, VK_END, 0);
  End;
end;

Diese Procedure ist bei rausgekommen, Sie überprüft ob in das Editfeld nur Zahlen eingegeben werden, falls nicht kommt ein Msgdlg und das Letzte Zeichen wird "gelöscht".

Es wäre wahrscheinlich sicherer, wenn du nicht sofort nach dem ersten Zeichen was du findest das letzte Zeichen löschst.
Besser wäre es glaube ich, nur den Text vor dem "bösen" Zeichen zu behalten.(füge mal "123mlkasdml33" aus dem Zwischenspeicher ein).
Kann auch sein, dass OnChange nach jedem gelöschten Zeichen aufgerufen wird. Dann bekommst du 9-mal eine Fehlermeldung.

Autsch. Das tut ja schon weh, wenn man das sieht.

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.SetFocus;
  Edit1.SelStart := length(Edit1.text);
end;

zusammenfalten · markieren

Delphi-Quellcode:

procedure TFrmEinstellungen.edtintervalChange(Sender: TObject);
var i, Laenge: Integer;
    EdtText:string;
begin
 //Prüfen ob nur Zahlen in das Editfeld eingegeben werden, falls nicht lösche das letzte Zeichen
 for i:=1 to length(EdtInterval.Text) do
  If not(EdtInterval.Text[i] in [#48..#57]) Then
  Begin
   MessageDlg('Das Intervall muss ein Ganzzahl sein', mtWarning, [mbok], 0);

   Laenge:= length(EdtInterval.Text);

   EdtText:= copy(EdtInterval.Text,0,(Laenge-1));

   EdtInterval.Text:= EdtText;

   //Setze Curser an das Ende des Editfeldes
   EdtInterval.SetFocus;
   EdtInterval.SelStart := length(EdtInterval.text);
  End;
end;

@Luckie: So besser? oder ist das immer noch Autsch?

@GeorgeWNewbie: Verstehe nicht was du meinst.

@GeorgeWNewbie Ok, jetzt habe ich dich verstanden



Könnte ich das Editfeld auch gegen Einfügen "sichern"?

Weil es geht dabei darum, das der User einen Interval eingibt. Dieses kopiert man ja eigentlich nicht aus der Zwischenablage.

Oder wie sieht die bessere Lösung aus?

Mit der Schleife läufst du den Text von vorne durch. Findet sie etwas, das keine Zahl ist, wird eine Meldung ausgegeben und das letzte Zeichen entfernt.
Wird Text aus der Zwischenablage eingefügt gibt es nicht für jedes Zeichen einen OnChange-Event. In deinem Edit steht dann z.B. "123mlkasdml33".
Deine Prozedur findet das "m" und löscht das letzte Zeichen. Dadurch wird wieder OnChange aufgerufen und es findet wieder das "m". Das geht solange weiter bis auch das gelöscht wurde. (und jedesmal darf der User eine Meldung wegklicken)
Edit: Oops zu spät

Wenn du das "m" gefunden hast steht in i die Position.
Wenn i=1 dann Text leeren andernfalls Textlänge = pred(i)

markieren

Delphi-Quellcode:

  If not(EdtInterval.Text[i] in [#48..#57]) Then
  Begin
   MessageDlg('Das Intervall muss ein Ganzzahl sein', mtWarning, [mbok], 0);

   If i = 1 then
     EdtInterval.Text := ''
   Else
     EdtInterval.Text := Copy(EdtInterval.Text,0, pred(i));
   ...

Um 00:42 solltest du aber nicht mehr auf meine Posts vertrauen

ja, das habe ich ja mittlerweile auch verstanden,

aber siehe vorriges posting von mir.

Wie könnte ich denn die erst Position in dem String finden, die keine Zahl ist? Pos(...)

p.s.: "ganzzahlig" klingt irgendwie besser...