Thema: Delphi Taschenrechner

Einzelnen Beitrag anzeigen

Enten Mann

Registriert seit: 19. Jan 2008
29 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: Taschenrechner

  Alt 20. Jan 2008, 14:31
Mein Code sieht jetzt aus
Delphi-Quellcode:
unit Unit1; {Name der Unit}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image14: TImage;
    Image15: TImage;
    Image16: TImage;
    Image17: TImage;
    Image18: TImage;
    Image19: TImage;
    Image20: TImage;
    Image21: TImage;
    Image22: TImage;
    Edit1: TEdit;
    Image12: TImage;
    procedure Button1Click(Sender: TObject);
    private
      { Private-Deklarationen }
    public
      { Public-Deklarationen }
  end;

var
  Form1: TForm1; //Hier werden die Globalen Variablen definiert

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject); //Unser OnClick-Ereignis
var
  zahl1, zahl2, ergebnis: integer; //Unsere Variablen
begin
Edit1.Text:=IntToStr(2*StrToInt(Edit1.Text))
end;

end.

Wo kann ich nachlesen wie ich das mache wenn man auf eine zahl oder ein Symbol drückt das ins Input kommt?
  Mit Zitat antworten Zitat