Edit nesnesi borderstyle özelliği

[pandora303]

Form daki edit1 nesnesinin borderstyle özelliğini bsnone olarak ayarladım ve Edit1 in Enter event ına edit1.borderstyle:=bsSingle,
Exit event ına da Edit1.bordestyle:=bsNone yazdım ancak çalışma anında Edit1 nesnesi seçiliyken cursor görünmüyor ve text i seçemiyorum. Çözüm yolu nedir bilen var mı?
VB 6.0 ın gözünü seveyim :) orda ne kolay oluyordu

[loxka]

OnEnter değilde OnKeyPress Event'ına yazsan hocam istediğin olacak galiba

[mrmarman]

Selam...

- OnKeyPress olmaz çünkü buradaki kontrol TEdit'e giriş ve çıkış anlarındaki değişimle tetileniyor.

- Bunu yapmak Delphi'de biraz sancılı olabilir ama VB ile karşılaştırıldığında münferit bir durum seçiciliğini etkilememeli.

- Aşağıdaki sayacaklarımı sırasıyla yaparsan istediğin olacaktır.

- Öncelikle en tepedeki interface ve uses satırlarını takiben aşağıdaki mesaj tanımını ekleyeceksin.

Kod: Tümünü seç

const
  UM_CHANGEBORDER = WM_USER + 42;

- Ondan sonra Private kısmına gelip bu message procedure tanımını yapıcaz..

Kod: Tümünü seç

  private
    procedure UMChangeBorder(var Msg: TMessage); message UM_CHANGEBORDER;
    { Private declarations }

- Bunun üzerinde CTRL+ALT+C tuş kombinasyonlarına basarak veya manuel elle oluşturacağın procedure'u ekliyoruz.

Kod: Tümünü seç

procedure TForm1.UMChangeBorder(var Msg: TMessage);
var
  Edit:  TEdit;
begin
  Edit := TEdit(Msg.lparam);
  with Edit do begin
    BorderStyle := bsSingle;
    Color       := clWindow;
    SelStart    := Length(Text);
  end;
end;

- Geriye ne kaldı, Edit'e yazacakların. OnExit olayında yine aynı işlemi yapacaksın.

Kod: Tümünü seç

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  Edit1.BorderStyle := bsNone;
end;

- Ama OnEnter olayında bu işi Delphi'nin mesajlarına bırakıp kendiliğinden yapılmasını sağlayacaksın.

Kod: Tümünü seç

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  PostMessage(Handle, UM_CHANGEBORDER, 0, LPARAM(Edit1));
end;

- Başarılar...

[pandora303]

onkeypress event ına yazarsam da olmaz ki ben mouse ile tıklandığında da tab la seçildiğinde de borderstyle değişsin istiyorum.
ama şöyle yapılabilir sanıyorum Edit1 in mouse click event ına yazarım ayrıca form1 in onkeypress event ına da basılan key in Tab olup olmadığını ve Edit1 in focused özelliğini kontrol edebilirim. True ise borderstyle bsSingle yapılabilir de...
Diğeri neden çalışmıyor?

[pandora303]

Üstad sağolasın dediklerini yaptım çalışıyor