Hey raga, sapete come posso limitare le stringhe in un label.
Cioè vorrei che quando mi mostra un risultato in una calcolatrice me lo scriva con la dicitura numero+E10 (che vuol dire che ci sono 10 zeri dopo il numero.
Poi raga volevo fare in modo che alla pressione del tasto 1 o 2(fino a 9) si prema il pulsante 1(&co.). Così nell'evento on keydown della form ho messo nell'istruzione CASE:
case key of
48,96:Sender:=ZeroButton;
49,97:Sender:=OneButton;
50,98:Sender:=TwoButton;
51,99:Sender:=ThreeButton;
52,100:Sender:=FourButton;
53,101:Sender:=FiveButton;
54,102:Sender:=SixButton;
55,103:Sender:=SevenButton;
56,104:Sender:=EightButton;
57,105:Sender:=NineButton;
end;
if key in [48,49,50,51,52,53,54,55,56,57,96,97,98,99,100,101, 102,103,104,105] then
begin
Val:=(Sender as TSPeedButton).Caption;
Enter;
Mode:=Num;
in modo che scriva la caption di ogni speedbutton nel label.
Ma non funziona una mazza. Anche se premo sulla tastiera i pulsanti corrispondenti non scrive un ca..o
Grazie in anticipo se mi sarete di aiuto
Rispondi quotando
