Edit bold

[hido]

Selam Edit in events özelliklerine baktım ama bulamadım yada yok kenarlarını bold olarak nasıl yapabilirim?

[mrmarman]

Sorunuzu biraz daha açar mısınız...

- Verdiğiniz ekran resmi satırlar ve sütunlar olunca bir TStringGrid nesnesi gibi görünüyor. Sorunuzda Edit deyince TEdit nesnesi gibi algılıyorum.

- OnPaint olayında gerekli işlemi kendi elinizle Canvas operasyonlarıyla yapmalısınız. TEdit'in canvas özelliği (direkt olarak) olmadığından aşağıdaki şekilde bir ControlCanvas durumu oluşturabilirsiniz.

Kod: Tümünü seç

Procedure CerceveYap( Edit:TEdit );
var
  aCanvas: TControlCanvas;
begin
  aCanvas := Nil;
  try
    aCanvas             := TControlCanvas.Create;
    aCanvas.control     := Edit;
    aCanvas.Pen.Width   := 1;
    aCanvas.Pen.Color   := clRed;
    aCanvas.Pen.Style   := psInsideFrame;
    aCanvas.Brush.Style := bsClear;
    aCanvas.Rectangle( 0, 0, Edit.Width-4, Edit.Height-4 );
  finally
    aCanvas.free;
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 CerceveYap( Edit1 );
end;

Bir de başka bir bakış açısı oluşturup, Edit'in kendi üzerinde değil de üzerinde bulunduğu Form'un canvasına çerçeve çizebilirsiniz. Bu daha kolaydır.

[SimaWB]

Alternatif:
TShape+TEdit yada TPanel+TEdit kullanarak kendi komponentini yapabilirsin.