Einzelnen Beitrag anzeigen

Benutzerbild von flow
flow

Registriert seit: 25. Apr 2003
61 Beiträge
 
#5
  Alt 17. Jun 2003, 09:34
Hallo,

falls es noch hilft, ich habe das so gelöst. Auch wenns nicht die schönste Version ist, es funktioniert!

Delphi-Quellcode:
procedure TGotoForm.edGotoChange(Sender: TObject);
var s, sOrd : String;
begin
 s := edGoto.Text;
 If s = 'Then exit;

 sOrd := Copy(s,Length(s),1);
 Case Ord(sOrd[1]) of
   48..57: Exit;
 else
   Delete(s,Length(s),1);
   If s = 'Then s := '0';
   edGoto.Text := s;
   SendMessage(edGoto.Handle,EM_SETSEL ,length(s),length(s));
 end;
end;
Bei mir ist das ein Eingabe Fenster mit einer TEdit wo man angeben kann in welche Zeile man im Text springen kann. Ich check allerdings nur den letzten Eintrag, den ganzen String check ich nicht durch.

FLOW
die welt ist eine scheibe

...und aus vinyl
  Mit Zitat antworten Zitat