[crystalmoon]

This Code work well when not using AlphaControls 10.26(and work well when I using the AlphaControls 10.11 )

procedure TIMMainFrm.s1Click(Sender: TObject);

var

P: TPoint;

begin

if CurMemo <> nil then

begin

GetCursorPos(P);

CurMemo.SelStart := 0;

//MessageBox(0, 'Because the Bug Of AC10.26,You Should Click Okey to Start!', 'Hint(Bug of AC10.26)', MB_OK +

// MB_ICONINFORMATION); //–If UnComment This MessageBox ,Then the TFindDialog Will work well again with AlphaControls 10.26

dlgFind.Position := P; //dlgFind = TFindDialog

dlgFind.Execute;

end;

end;

[crystalmoon]

When I Set SkinManager.Option.NoMouseHover:=False;

TFindDialog Show OK Again.

[Master]

'crystalmoon' wrote:

When I Set SkinManager.Option.NoMouseHover:=False;

TFindDialog Show OK Again.

I just tested it with both options

SkinManager.Option.NoMouseHover:=True;

and SkinManager.Option.NoMouseHover:=False;

and without UnComment MessageBox It works with both without problem.

Tested with Rad Studio 10 Seattle and AlphaControls 10.26

[crystalmoon]

Yes,As I Said,If Uncomment This MessageBox(This is a trick that I have Tested) ,Then the TFindDialog Will works well with AlphaControls 10.26,

But,If Dont't Use MessageBox ,Let it stay as commnet ,then TFindDialog will Disappear soon,this maybe a bug?; Of course, if Set SkinManager.Option.NoMouseHover:=False; Both Comment or unComment MessageBox,TFindDialog Will works well too.

BTW:Test under Delphi XE8,But should be reproduced in Delphi 10

[Support]

Hello!

I'm trying to make a test app using your code, but can't repeat the problem.

Can you help, please?

[crystalmoon]

Hello,So here is the error reproduced example

my demo is something diffent than yours,that is ,I use popupmenu to show FindDialog,not use button.

[Master]

I just tested your demo and the problem is with the following skins

Quote:

Notes Leather

Notes Plastic

Notes Sport

Notes Wood

choose different skins and it will work normally.

Note: Check if there's updates for this skins maybe fix the problem.

[crystalmoon]

Thanks,That's a good news. and hope for those alphaskins will be update in next release

[Support]

Thanks for additional information, I can repeat and fix it now.

I hope, this issue will be solved in the nearest release.

[Author]

Posts