BitBtn Renklendirme
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
BitBtn Renklendirme
Arkadaşlar Merhaba; Ben Form üzerinde BitBtn1.....3 kullanıyorum. Şunu yapabilir miyim Mouse ile BitBtn1.....3 üzerine gelince hangi BitBtn ' e gelirsem renk olur çizgi olur bir şekilde ayrıştırmak istiyorum. Yardımcı olur musunuz?
- hi_selamlar
- Üye
- Mesajlar: 523
- Kayıt: 05 May 2005 03:24
- Konum: DelphiTürkiye.COM
Re: BitBtn Renklendirme
BitBtn5 ve BitBtn6 referans alınarak buton üzerindeki görüntü değiştiriliyor. Burada dikkat edin işlem yapılacak butonlar bir panel üzerinde toparlandığı için tek bir döngü içinde değişiklik gerçekleştiriliyor.
Kod: Tümünü seç
var
Form1: TForm1;
var i: integer;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1MouseEnter(Sender: TObject);
begin
butonuzerinde(Sender as (TBitBtn));
end;
procedure TForm1.BitBtn1MouseLeave(Sender: TObject);
begin
butondisinda(Sender as (TBitBtn));
end;
procedure TForm1.butonuzerinde(btn:TBitBtn);
Begin
for i := ComponentCount-1 downto 0 do
begin
if (Components[i] is TBitBtn) AND (TBitBtn(Components[i]).Parent=Panel1) Then
Begin
with TBitBtn( Components[i]) do
Glyph:=BitBtn5.Glyph;
End;
end;
btn.Glyph:=BitBtn6.Glyph;
btn.Font.Style:=[fsBold];
end;
procedure TForm1.butondisinda(btn:TBitBtn);
Begin
btn.Glyph:=BitBtn5.Glyph;
btn.Font.Style:=Font.Style-[fsBold];
end;
Nasibinde varsa, alırsın karıncadan bile ders, Nasibinde yoksa, bütün cihan önüne serilse, sana ters..
Re: BitBtn Renklendirme
xozcanx çok teşekkür ederim tam istediğim ama ben Delphi7 kullanıyorum ve şunlar yok;
BitBtn1MouseEnter
BitBtn1MouseLeave
BitBtn1MouseEnter
BitBtn1MouseLeave
Kod: Tümünü seç
procedure TForm1.BitBtn1MouseEnter(Sender: TObject);
begin
butonuzerinde(Sender as (TBitBtn));
end;
procedure TForm1.BitBtn1MouseLeave(Sender: TObject);
begin
butondisinda(Sender as (TBitBtn));
end;
Re: BitBtn Renklendirme
Nasibinde varsa, alırsın karıncadan bile ders, Nasibinde yoksa, bütün cihan önüne serilse, sana ters..
Re: BitBtn Renklendirme
Rad Studio 10 Kullanıyorsun ben Delphi7 bende yok
Re: BitBtn Renklendirme
Kusura bakmayın uzun süredir Delphi 7 kullanmadığım için bu özelliğin olmadığını unutmuşum. Aklıma gelen yöntemi söyleyeyim fakat sıkıntısıda şu sürekli buton üzerinde bir titreme meydana gelecektir.
Timer nesnesi ile Mouse Cursor pozisyonunu alarak BitBtn üzerinde olup olmadığını kontrol edebilirsin eğer belirttiğin Btn üzerine gelirse yukarıdaki gibi değişiklik yapabilirsin.
2. olarak Form.Pas içerisinde bir düzenleme ile bu özellikleri enteğre etmek gerekecek
3. olarak ise 3. parti bir bileşen yüklemek olabilir.
İyi Çalışmalar.
Edit: Form.Pas ve Buttons.pas içerisinde ilgili property ların varolduğunu gördüm, fakat fazla detayına giremedim
Timer nesnesi ile Mouse Cursor pozisyonunu alarak BitBtn üzerinde olup olmadığını kontrol edebilirsin eğer belirttiğin Btn üzerine gelirse yukarıdaki gibi değişiklik yapabilirsin.
2. olarak Form.Pas içerisinde bir düzenleme ile bu özellikleri enteğre etmek gerekecek
3. olarak ise 3. parti bir bileşen yüklemek olabilir.
İyi Çalışmalar.
Edit: Form.Pas ve Buttons.pas içerisinde ilgili property ların varolduğunu gördüm, fakat fazla detayına giremedim
Nasibinde varsa, alırsın karıncadan bile ders, Nasibinde yoksa, bütün cihan önüne serilse, sana ters..
Re: BitBtn Renklendirme
component var mı bildiğin delphi7 ye göre?
Re: BitBtn Renklendirme
Nasibinde varsa, alırsın karıncadan bile ders, Nasibinde yoksa, bütün cihan önüne serilse, sana ters..