Tıklanan bileşenin kenarlarını işaretlemek..

[aLonE CoDeR]

Merhaba.
Konu daha önce forumda konuşuldu diye hatırlıyorum ancak uzun aramalarım sonucu istediğim bilgiye ulaşamamın verdiği buruklukla ( ) sorma gereği duydum..Form üzerinde tıklanan bileşeni design time'de olduğu gibi kenarlarını işaretlemek konusunda fikirlerinizi öğrenebilir miyim?
Teşekkürler..

[bukentay]

viewtopic.php?t=9649&highlight=

[aLonE CoDeR]

İlginiz için çok teşekkür ederim, kodlar işimi gördü..Nasıl bulamadım diyorum hala
Kolay gelsin..

[aLonE CoDeR]

Tekrar merhaba.
Eğer aynı işlemi diğer bileşenler için de (TWinControl sınıfından olmayanlar için) kullanmak isterseniz;

Kod: Tümünü seç

procedure TForm1.ClickEvent(Sender: TObject);
  var
    objAC : TControl;
begin
  objAC := TControl (Sender);
  with Form1, Canvas do
  begin
    Refresh;
    Rectangle(objAC.Left-3 , objAC.Top-3 , objAC.Left+3 , objAC.Top+3);
    Rectangle(objAC.Left-3+objAC.Width , objAC.Top-3 , objAC.Left+3+objAC.Width , objAC.Top+3);
    Rectangle(objAC.Left-3 , objAC.Top-3+objAC.Height , objAC.Left+3 , objAC.Top+3+objAC .Height);
    Rectangle(objAC.Left-3+objAC.Width , objAC.Top-3+objAC.Height , objAC.Left+3+objAC .Width , objAC .Top+3+objAC.Height);
  end;//with
end;

ve bu procedureyi ilgili bileşenlerin OnClick eventine yazmanız yeterli.

Kolay gelsin..

[aLonE CoDeR]

"Canvas"'ı with bloğuna dahil ettiğimizde; başka bir bileşen tıklanınca öncekinin işaretlerini silmiyor, bilginize...