[delphi] beginnersvraagje

[Verwijderd]

Hoe kan ik een on-screen backspace button maken ?

Ik heb een getal in beeld waarvan ik het laatste getal wil afhalen.

dus: 123 moet 12 worden...

[Super_ik]

iets met
text1 = left$(text1, len(text1) - 1)
zoek maar s op hoe die functies in delphie heten

[Verwijderd]

euh, gooi een knop op je form, ik ga ervanuit dat die 123 in een edit staat,
dan als trigger code van die knop:

Tedit1.Text := copy(Tedit1.Text, 1, length(Tedit1.Text) - 1);

[JER00N]

Op http://www.festra.com/introfr.htm staat bij 'Alleen numerieke input in een TEdit' dit:

code:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  // #8 is Backspace
  if not (Key in [#8, '0'..'9']) then begin
    ShowMessage('Ongeldige toets');
    // onderdruk de key
    Key := #0;
  end;  
end;

Misschien kan je hier wat mee. Je moet ahw #8 (oftewel backspace) naar bijv een TEdit sturen
Hiermee simuleer je zegmaar de backspace-toets.

[ Voor 11% gewijzigd door JER00N op 09-09-2003 21:17 ]

[whoami]

Mjah...
Hier is P&W niet voor bedoeld. Dit is gewoon een beetje basic. Daarnaast is dit geen afhaal centrum voor code, of een quickfix-bar.