Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.pascal.delphi.misc > #278

Re: Change appearance

Show all headers | View raw

Thanks for the answer. I will read your suggestion with attention. In the 
meantime someone suggested the following trick:

Replace my original declaration:
  aBevel := TBevel.Create(Self);
  aButton := TButton.Create(Self);
with:
     aBevel := TBevel.Create(Self);
     aButton := TButton.Create(aBevel);
so to make the Bevel the owner of each Button. My procedure must then be 
changed form:

procedure Tform1.AnyBtnMouseEnter(Sender: TObject);
begin
  If Sender is TButton then
     Tbevel(Sender).Visible := true;
end;

to:

procedure Tform1.AnyBtnMouseEnter(Sender: TObject);
begin
  If Sender is TButton then
    TBevel(TButton(Sender).Owner).Visible := true;
end;
----------------------------------
I tried and this works. Moving the mouse over the buttons, the bevel appears 
on the focused button.
Unfortunately, I am disappointed by poor appearance of what I was trying 
achieve with the bevel. It doesn't look as I expected ..

Back to comp.lang.pascal.delphi.misc | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Change appearance "Stark" <franco.jommi@tin.it> - 2012-04-29 15:43 +0200
  Re: Change appearance "Ph. B." <philippe_NO_SPAM_.boucault@voila.fr> - 2012-04-30 11:04 +0200
  Re: Change appearance "alanglloyd@aol.com" <alanglloyd@aol.com> - 2012-05-02 14:29 -0700
  Re: Change appearance "alanglloyd@aol.com" <alanglloyd@aol.com> - 2012-05-02 23:59 -0700
    Re: Change appearance "alanglloyd@aol.com" <alanglloyd@aol.com> - 2012-05-03 00:03 -0700
      Re: Change appearance "Stark" <franco.jommi@tin.it> - 2012-05-05 20:44 +0200
        Re: Change appearance "alanglloyd@aol.com" <alanglloyd@aol.com> - 2012-05-06 23:17 -0700
          Re: Change appearance "Stark" <franco.jommi@tin.it> - 2012-05-08 16:13 +0200
          Re: Change appearance "Stark" <franco.jommi@tin.it> - 2012-05-09 19:40 +0200
            Re: Change appearance "alanglloyd@aol.com" <alanglloyd@aol.com> - 2012-05-09 11:22 -0700

csiph-web