[RESOLVED] OnClick causes crash

[Riccardo Giuliani]

Hi everybody!

Little question: I dinamically create a new form with a progbar inside it, whom progression i manage into another procedure, referring to progbar with

Code: [Select]

tprogbar(findcomponent('nameofprogbar'));In the previous procedure, i set OnClick := @myprocedure; as in the example

Code: [Select]

with newform do
  ....
  with progbar do
    ...
    OnClick := @myprocedure;

Now... myprocedure(sender: tobject) is required to perform some actions among which there's newform.close.
Every time i click on progbar appears "project raised exception class 'external: sigsegv'" and source editor opens the control.inc file directly to row 1072

Code: [Select]

MouseUp(Button, KeysToShiftState(Keys), XPos, YPos);in DoMouseUp procedure.

Obviously, calling myprocedure without click event will get the goal.

So... am i doing anything wrong or could it be a bug?

Thanks.

[typo]

Is the component a TProgressBar?

[Riccardo Giuliani]

Yes; and to be sure i put

Code: [Select]

if Sender is TProgressBar then ShowMessage('prog');into myprocedure.

[typo]

This occurs even if you run the program outside the IDE?

[Riccardo Giuliani]

I Get an Access Violation

[typo]

I think you should report it on BugTracker.

[Riccardo Giuliani]

Me too. Could you indicate a guide? (never done before)
Thanks again for your patience. 

[typo]

http://bugs.freepascal.org/view_all_bug_page.php?project_id=1

Simply sign up and make a report, adding an example project.

[Bart]

Now... myprocedure(sender: tobject) is required to perform some actions among which there's newform.close.

If closing newform also means destroying it then you destroy a component (progbar) in it's own eventhandler, which wil cause an AV I think.

Bart

[Riccardo Giuliani]

If closing newform also means destroying it then you destroy a component (progbar) in it's own eventhandler, which wil cause an AV

So... should all code in myprocedure be executed with progbar still "alive"?
Isn't enough just to call it?

[mas steindorff]

you should read the post about the use of "with"
are you setting newform.onclick or progressbar.onclick

try it without the with statements

[Riccardo Giuliani]

are you setting newform.onclick or progressbar.onclick

progressbar.onclick

Tried to find post you're talking about, but there are to much, so i googled around and i haven't found my problem is related to "with do", but i'll test without the statement.

Maybe Bart's right.

[typo]

Why do you need to click on a TProgressBar?

[Riccardo Giuliani]

Sorry for delay, been occupied.

Why do you need to click on a TProgressBar?

Just because i thought this gentle solution to my application.
At last i've statically created a form with a progbar inside, resolving everything.

Should i put RESOLVED on title?

Thank you all.

[Marc]

Should i put RESOLVED on title?

Not required, but maybe nice to other ppl reading this.