| Hauptmenü | |||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|
|
| TEdit - Es darf nur im sichtbaren Bereich was eingegeben werden |
|
|
| Geschrieben von Lemmy | |
| Sonntag, 19. Februar 2006 | |
|
Worum es geht: Diese Prozedur erzwingt die Eingabe von maximal soviel Zeichen, dass alle noch sichtbar sind. Dies funktioniert auch mit verschiedenen Schriftarten. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key<>#9 then //Rücktaste soll funktionieren if canvas.textwidth(edit1.text+key)>edit1.width-10 then key:=#0; end; |
| < Zurück | Weiter > |
|---|