bitbtn

[Misafir]

Merhaba arkadaşlar, mouse' u bitbtn üzerine odaklandırdığım zaman bitbtn font rengini değiştirebiliyorum fakat mouse üzerinden çektiğim zaman eski rengini almıyor bu sorunu nasıl halledebilirim? thanks.

[TRSoft]

ne kadar kullanışlı olur bilemiyorum ama formun onmousemove olayındada bitbtn nin fontunun rengini değiştirebilirsin..

Bir başka öneride bu işin birçok component var ben kullanmadım ama bir çoğunu incelemişdim..

Ben genelde mouse üzerine gelince değilde tıklanınca değişmesi için onenter ve onexıt olaylarında bu tür işlemleri yaptırıyorum.

[Misafir]

teşekkür edrim trsoft

[gkimirti]

marco cantunun orneklerinde var
cm_mouseenter ve cm_mouseleave öesajlarını yakalayarak yapmıs...

Kod: Tümünü seç

unit Md4ActiveBtn;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TMd4ActiveButton = class(TButton)
  protected
    procedure MouseEnter (var Msg: TMessage);
      message cm_mouseEnter;
    procedure MouseLeave (var Msg: TMessage);
      message cm_mouseLeave;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Md4', [TMd4ActiveButton]);
end;

{ TMd4ActiveButton }

procedure TMd4ActiveButton.MouseEnter(var Msg: TMessage);
begin
  Font.Style := Font.Style + [fsBold];
end;

procedure TMd4ActiveButton.MouseLeave(var Msg: TMessage);
begin
  Font.Style := Font.Style - [fsBold];
end;

end.

[bobasturk]

ustalarım,

ingilizcem olmadığı için olsa gerek mouse form üzerine geldiğinde bitbtn nin font style nin bold olan özelliğinin normale dönmesini istiyorum bildiğim kadarı ile normal=normal ama hata veriyor.

Kod: Tümünü seç

procedure TFormArsiv.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  statusbar1.Panels[0].Text:='';
  bitbtn7.Font.Color:=clblack;
  bitbtn6.Font.Color:=clblack;
  bitbtn5.Font.Color:=clblack;
  bitbtn4.Font.Color:=clblack;
  bitbtn3.Font.Color:=clblack;
  bitbtn2.Font.Color:=clblack;
  bitbtn1.Font.Color:=clblack;
  bitbtn7.Font.Style:=[fsnormale];
end;

fsnormal de hata veriyor. ne yazmalıyım acaba?

teşekkür ve saygılar
kolay gelsin

[bobasturk]

Özür diliyorum.inşaallah böle hataya bidaha düşmeyeceğim, çünki biraz araştırmak gerekiyo.

Kod: Tümünü seç

procedure TFormArsiv.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  statusbar1.Panels[0].Text:='';
  bitbtn7.Font.Color:=clblack;
  bitbtn6.Font.Color:=clblack;
  bitbtn5.Font.Color:=clblack;
  bitbtn4.Font.Color:=clblack;
  bitbtn3.Font.Color:=clblack;
  bitbtn2.Font.Color:=clblack;
  bitbtn1.Font.Color:=clblack;
  bitbtn7.Font.Style:=font.style-[fsbold];
end;

şeklinde oldu.

özrümün kabulu dileği ile