Edit otomatik ekleme ve cursor

[dogan]

Merhaba,

Edit içine sadece sayı girişine izin veriyorum;
Kullanıcı örnek: 22 yazdığında otomatik olarak 22'nin yanına : işareti gelecek buraya kadar kısmen sorun yok, fakat : koyduktan sonra cursor sürekli olarak editin en başına geliyor corsor en sonda tutmayı nasıl yapabilirim?

Kod: Tümünü seç

procedure TForm2.Edit1KeyPress(Sender: TObject;
  var Key: Char);
begin
    if Length(Edit1.Text) = 2 then
    begin
 Edit1.Text := Copy(Edit1.Text, 1, 2) + ':';
    end;

[adelphiforumz]

maskedit kullan mask alanınada
00: yada 99: kullanabilirsin

[ertank]

Merhaba,

Kod yazarken hangi kodun hangi blok içinde çalıştığını anlamak adına döngü/begin..end arasındaki kodlar biraz daha içeriden yazılır. Kodu okuması daha kolay olur.

Bunlar her ne kadar programcının "damak tadı" olsa da grup çalışmaları, forumlarda soru sorulacağı zaman yazılan kodun yardımcı olacak kişiler tarafından daha kolay ve hızlı anlaşılmasına fayda sağlayacaktır.

Sizinde bu şekilde alışkanlık geliştirmenizde fayda var.

Sorununuza gelince aşağıdaki şekilde istediğinizi elde edebilirsiniz.

Kod: Tümünü seç

procedure TForm2.Edit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if Length(Edit1.Text) = 2 then
  begin
    Edit1.Text := Copy(Edit1.Text, 1, 2) + ':';
    Edit1.SelStart := Length(Edit1.Text);
  end;

[dogan]

Merhaba,

Kod yazarken hangi kodun hangi blok içinde çalıştığını anlamak adına döngü/begin..end arasındaki kodlar biraz daha içeriden yazılır. Kodu okuması daha kolay olur.

Bunlar her ne kadar programcının "damak tadı" olsa da grup çalışmaları, forumlarda soru sorulacağı zaman yazılan kodun yardımcı olacak kişiler tarafından daha kolay ve hızlı anlaşılmasına fayda sağlayacaktır.

Sizinde bu şekilde alışkanlık geliştirmenizde fayda var.

Sorununuza gelince aşağıdaki şekilde istediğinizi elde edebilirsiniz.

Kod: Tümünü seç

procedure TForm2.Edit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if Length(Edit1.Text) = 2 then
  begin
    Edit1.Text := Copy(Edit1.Text, 1, 2) + ':';
    Edit1.SelStart := Length(Edit1.Text);
  end;

Çok teşekkür ederim, işimi gördü; Tek sıkıntı ok tuşu ile tek, tek silerken ( if Length(Edit1.Text) = 2 then ) den kaynaklı silmeme izin vermiyor

[brs]

İşine görecektir...

Kod: Tümünü seç

if (Length(Edit1.Text) = 2) and (Key <> #08) then