hi
Code:
procedure Tll.Button7Click(Sender: TObject);
begin
edit_eingabe.Text := edit_eingabe.text+'9';
end;
ich glaub das is dein code fuer den druck auf 9
du muesstest jetzt eigentlch bei jeder zahlentaste abfragen ob der edit_eingabe.text nur 0 ist und wenn ja den loeschen, also
Code:
procedure Tll.Button7Click(Sender: TObject);
begin
if edit_eingabe.text='0' then edit_eingabe.text:='';
edit_eingabe.Text := edit_eingabe.text+'9';
end;
gruss
grumble