MaskEdit otomatik tamamlama

[Serhat]

İyi akşamlar;

MaskEdit in time özelliğini kullanıyorum, kullanıcı maskedite 02:00 gibi bir sayı girdiğinde bu sayıyı otomatik olarak 00:02:00 tamamlanmasını nasıl sağlayabilirim. Bu işlemi editde çok kullanışlı olmasa da yaptırabiliyorum benzer uygulamayı maskedite kullanamadım...

Kod: Tümünü seç

begin
if (Length(Edit1.Text)=2) then
begin
Edit1.Text:=Edit1.Text+':';
Edit1.Selstart := Length(Edit1.Text);
end;
if (Length(Edit1.Text)=5) then
begin
Edit1.Text:=Edit1.Text+':';
Edit1.Selstart := Length(Edit1.Text);
end;
if (length(Edit1.Text)=8) and (not(key=vk_back)) then
Edit2.Setfocus;
end;  

[mrmarman]

EditMask olarak

Kod: Tümünü seç

!99:99:99;1;0

işinizi görmez mi ?

[Serhat]

Hocam "!99:99:99;1;0" denedim...

[mrmarman]

Bir de normal TEdit'i yeniden başka bir bakış ile şöyle bir inceleyin.

NOT: OnClick eventini de OnEnter eventine bağlarsanız aynı kodu kullanmasını sağlarsınız. Verim artar.

Kod: Tümünü seç

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  With TEdit(Sender) do begin
    Text := '00:00:00';
    SelStart  := 03;
    SelLength := 02;
  end;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
 function TersDizilim( strGiris: String ): string;
 Var i : Integer;
 begin
    Result := '';
    for i := Length(strGiris) downto 1
      do Result := Result + strGiris[i];
 end;
Var
  i : Integer;
  strDeger, strSonuc : String;
  strSa, strDk, strSn : String;
begin
  strSa := '';
  strDk := '';
  strSn := '';
  strSonuc := '';
  strDeger := '';
  if Pos(':', TEdit(Sender).Text) <= 0 then begin
    strDk := TEdit(Sender).Text;
  end else begin
    strDeger := TersDizilim( TEdit(Sender).Text ) + ':';

    strSn := Copy( strDeger, 1, Pos(':', strDeger)-1);
      system.Delete(strDeger, 1, Pos(':', strDeger));

    strDk := Copy( strDeger, 1, Pos(':', strDeger)-1);
      system.Delete(strDeger, 1, Pos(':', strDeger));

    strSa := Copy( strDeger, 1, Pos(':', strDeger)-1);
      system.Delete(strDeger, 1, Pos(':', strDeger));
  end;
  if strSa = '' then strSa := '0' else strSa := TersDizilim( strSa );
  if strDk = '' then strDk := '0' else strDk := TersDizilim( strDk );
  if strSn = '' then strSn := '0' else strSn := TersDizilim( strSn );
  strSonuc := Format('%.2d:%.2d:%.2d', [ StrToInt(strSa),StrToInt(strDk),StrToInt(strSn)  ]);
  TEdit(Sender).Text := strSonuc;
end;

[Serhat]

Hocam elinize sağlık on numara bir çalışma, Yalnız 03 yazdığımda 00:30:00 olarak veriyor 00:00:03 olmalı birde 00:30:00 iken edit, edit tıkladığımda 00:00:00 oluyor...

[mrmarman]

Haklısını benim hatam, statik girişleri de ters dizilime bırakmışım.
Aşağıdaki gibi deneyebilirsin.

Mouse ile click yapıldığında sıfırlamasın istersen ONEnter kısmındakileri kaldırıp dilediğin şekilde düzenleyebilirsin. Dilersen direkt dakika hanesine konumlandırabilirsin vs. ne istersen

Kod: Tümünü seç

procedure TForm1.Edit1Exit(Sender: TObject);
 function TersDizilim( strGiris: String ): string;
 Var i : Integer;
 begin
    Result := '';
    for i := Length(strGiris) downto 1
      do Result := Result + strGiris[i];
 end;
Var
  i : Integer;
  strDeger, strSonuc : String;
  strSa, strDk, strSn : String;
begin
  strSa := '0';
  strDk := '0';
  strSn := '0';
  strSonuc := '';
  strDeger := '';
  if Pos(':', TEdit(Sender).Text) <= 0 then begin
    strDk := TEdit(Sender).Text;
  end else begin
    strDeger := TersDizilim( TEdit(Sender).Text ) + ':';

    strSn := Copy( strDeger, 1, Pos(':', strDeger)-1);
      system.Delete(strDeger, 1, Pos(':', strDeger));

    strDk := Copy( strDeger, 1, Pos(':', strDeger)-1);
      system.Delete(strDeger, 1, Pos(':', strDeger));

    strSa := Copy( strDeger, 1, Pos(':', strDeger)-1);
      system.Delete(strDeger, 1, Pos(':', strDeger));
    if strSa = '' then strSa := '0' else strSa := TersDizilim( strSa );
    if strDk = '' then strDk := '0' else strDk := TersDizilim( strDk );
    if strSn = '' then strSn := '0' else strSn := TersDizilim( strSn );
  end;
  strSonuc := Format('%.2d:%.2d:%.2d', [ StrToInt(strSa),StrToInt(strDk),StrToInt(strSn)  ]);
  TEdit(Sender).Text := strSonuc;
end;

[Serhat]

Bir önceki kodu paylaşmışsınız...

[mrmarman]

Hayır hocam yaşlandım da o kadar değil ...

Burada TersDizilim işlemi yapan / dışarıda unuttuğum kısımları

Kod: Tümünü seç

    if strSa = '' then strSa := '0' else strSa := TersDizilim( strSa );
    if strDk = '' then strDk := '0' else strDk := TersDizilim( strDk );
    if strSn = '' then strSn := '0' else strSn := TersDizilim( strSn );

ELSE'nin BEGIN END bloğuna aldım.