[SOLVED] Tshape onclick do not works

[torbente]

Hi everyone.
I created a Tshape:

Code: Pascal  [Select][+][-]

1. ConnectCircle := Tshape.Create(form1);ConnectCircle.Parent:=form1;
2. ConnectCircle.Top:=2;ConnectCircle.Left:=2;ConnectCircle.Height:=26;ConnectCircle.Width:=26;
3. ConnectCircle.Shape:=stcircle;ConnectCircle.Brush.Color:=clred;ConnectCircle.Brush.Style:=bssolid;
4. ConnectCircle.Visible:=true;ConnectCircle.Enabled:=true;
5. ConnectCircle.ShowHint:=true;ConnectCircle.Hint:='Disconnected';
6. ConnectCircle.OnClick:=@Form1.ConnectCircleOnClick;
7.  
8. Procedure TForm1.ConnectCircleOnClick(Sender: TObject);
9. Begin
10. ConnectCircle.Brush.Color:=clgreen;
11. End;
12.  

The onclick procedure is not working. I can change the color at runtime, but for some reason the onclick do not works.
Any idea?

EDIT: the tshape is not showing the hint neither... 

[jamie]

laz version ?


EDIT

 I just checked old Laz 2.0.4 and Trunk, all working here.

[torbente]

Lazarus 2.0.10 r63526 on windows 8.1

[speter]

G'Day Torbente,

I recreated your example and it worked without a problem.
I have added a tlabel (see screenshot) and cleaned up your code a little.

Code: Pascal  [Select][+][-]

1.   TForm1 = class(TForm)
2.     Label1: TLabel;
3.     procedure FormCreate(Sender: TObject);
4.   private
5.   public
6.     ConnectCircle : TShape;
7.     Procedure ConnectCircleOnClick(Sender: TObject);
8.   end;
9.  
10. ...
11.  
12. procedure TForm1.FormCreate(Sender: TObject);
13. begin
14.   ConnectCircle := TShape.Create(form1);
15.   with ConnectCircle do
16.     begin
17.       Parent:=form1;
18.       Top:=2;
19.       Left:=2;
20.       Height:=26;
21.       Width:=26;
22.       Shape:=stcircle;
23.       Brush.Color:=clred;
24.       Brush.Style:=bssolid;
25.       Visible:=true;
26.       Enabled:=true;
27.       ShowHint:=true;
28.       Hint:='Disconnected';
29.       OnClick:=@Form1.ConnectCircleOnClick;
30.     end;
31.  
32. end;
33.  
34. Procedure TForm1.ConnectCircleOnClick(Sender: TObject);
35. Begin
36.   ConnectCircle.Brush.Color:=clgreen;
37.   label1.caption := 'after';
38. End;

What event did you use when you created your TShape?

cheers
S.

[torbente]

It is created at formshow; i create all my controls there.
I have somebuttons created at formshow and they work perfect.

[speter]

When I move my "create" code from FormCreate to FormShow the program still works fine.

I am not sure what the issue is.

cheers
S.

Edit: Is it possible that you have a component over (on top) the TShape? I've had a paintbox over other components, and was therefore unable to interact with the "lower" components...

[torbente]

Done! I had an old, transparent and completely forgot label in front!
Thanks for your tip.