|
Registriert seit: 27. Apr 2003
Ort: Bad Honnef
1.644 Beiträge
Delphi 2009 Professional
|
Re: Buchstaben prüfen lassen
19. Feb 2005, 16:35
Hallo,
wie wäre es denn damit?
Delphi-Quellcode:
procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
With Sender as TRichEdit do
begin
If SelLength=0 then
Label1.Caption:=Text[SelStart];
end;
end;
I come from outer space to save the human race
|