Android ve IOS Uygulama Geliştirme Ders1

Katılım
2 Ara 2015
Tepki puanı
343
Rating - 0%
Kendi sesli anlatımımdır
Gerekli Uygulamalar;
RAD Studio XE8
AVD MANAGER
embarcadero-delphi1.png

E5W7Ez.png

Kod:
unit ewqwqeqwe;[/B][/CENTER]
[B]
[CENTER]interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.Edit;

type
  TForm5 = class(TForm)
    Button1: TButton;
    yazi2: TLabel;
    yazi1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.fmx}
{$R *.SmXhdpiPh.fmx ANDROID}

procedure TForm5.Button1Click(Sender: TObject);
begin
yazi2.Text := yazi1.Text;

end;

end.

Kod:
unit ewqwqeqwe;[/B][/CENTER]
[B]
[CENTER]interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.Edit;

type
  TForm5 = class(TForm)
    Button1: TButton;
    yazi2: TLabel;
    yazi1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
implementation

{$R *.fmx}
{$R *.SmXhdpiPh.fmx ANDROID}

procedure TForm5.Button1Click(Sender: TObject);
begin
showmessage('asdsasad');
end;

end.

 
131,489Konular
3,268,619Mesajlar
315,256Kullanıcılar
AIDollarsSon Üye
Üst Alt