FMX mimarisinde zorlandığınız kısımlar ve çözümleri

[Mr.X]

Merhaba,

Password Char değişikliğini aşağıdaki yöntemle yapabiliriz gibi. Daha önce uğraşmamıştım. Varsayılan ne ise onu kullanıyorum. FMX mimarisi platformlara bu konuda bağımlı hale gelmiş durumda. O yüzden Platform API taraflarında tanımlı ne ise onu kullanıyor. Ama bu mecbur olduğumuz anlamına gelmez elbette.
Dün paylaşma fırsatım olmadı yoğunluğumdan ötürü. Delphi 12.3 ile yazılmıştır.

   

         

unit Unit1;

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.Edit,
 FMX.StdCtrls,
 FMX.Layouts,
 FMX.Objects,
 FMX.Effects,
 FMX.Ani;

type
 TForm1 = class(TForm)
   Layout1: TLayout;
   Rectangle1: TRectangle;
   Rectangle2: TRectangle;
   StyleBook1: TStyleBook;
   Layout4: TLayout;
   Layout2: TLayout;
   Label2: TLabel;
   Label1: TLabel;
   Rectangle3: TRectangle;
   Edit1: TEdit;
   Rectangle4: TRectangle;
   Edit2: TEdit;
   Layout3: TLayout;
   Rectangle5: TRectangle;
   Label3: TLabel;
   Rectangle6: TRectangle;
   Label4: TLabel;
   ShadowEffect1: TShadowEffect;
   ShadowEffect2: TShadowEffect;
   ColorAnimation1: TColorAnimation;
   ColorAnimation2: TColorAnimation;
   procedure Edit1Typing(Sender: TObject);
   procedure FormCreate(Sender: TObject);
   procedure Edit1Click(Sender: TObject);
   procedure Rectangle1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
   procedure Rectangle6Click(Sender: TObject);
   procedure Rectangle5Click(Sender: TObject);
 private

 public
   FPassword: string;
 end;

var
 Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Edit1Click(Sender: TObject);
begin
 Edit1.Text     := StringOfChar(Edit2.Text[1], Edit1.Text.Length);
 Edit1.SelStart := Edit1.Text.Length;
end;

procedure TForm1.Edit1Typing(Sender: TObject);
begin
 if Length(FPassword) > Length(Edit1.Text) then
   FPassword := Edit1.Text
 else
   FPassword := FPassword + Copy(Edit1.Text, Length(Edit1.Text), 1);

 Edit1.Text     := StringOfChar(Edit2.Text[1], Edit1.Text.Length);
 Edit1.SelStart := Edit1.Text.Length;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
{$IF DEFINED(ANDROID) OR DEFINED(IOS)}
 SELF.Transparency  := false;
 Rectangle1.XRadius := 0;
 Rectangle1.YRadius := 0;
 Rectangle2.Corners := [TCorner.BottomLeft, TCorner.BottomRight];
{$ENDIF}
 FPassword := '';
end;

procedure TForm1.Rectangle1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
 SELF.StartWindowDrag;
end;

procedure TForm1.Rectangle5Click(Sender: TObject);
begin
 Edit1.Text := FPassword;
end;

procedure TForm1.Rectangle6Click(Sender: TObject);
begin
 Edit1.Text := StringOfChar(Edit2.Text[1], Edit1.Text.Length);
end;

end.

  PasswordChar.zip (Dosya Boyutu: 301,05 KB / İndirme Sayısı: 6)