[mboloz]

okey thanks

[mboloz]

Also the file.. not only compiled exe..

[mboloz]

'CheshireCat' wrote:

Sorry for missing file, here is the complete demo with all files:

[attachment=6667:Queue Thread.zip]

:a3: many thanks, works perfectly… case closed

[mboloz]

'CheshireCat' wrote:

Hello,

you can use my class for save threads in a waiting list. Look at the attached demo 🙂

[attachment=6666:Queue Thread.zip]

Note:

I use TGauge instead TProgressBar, a TProgressBar is not suitable in threads!

:a3: hey thanks, but the fmain.pas i cant found it, would you upload it again?

[mboloz]

its not about detect the thread already running or not, i precisely need the thread execute many time

but the progress waiting each, not by overlaping by new execute

sorry for bad english…

[mboloz]

🙁 Thanks dude, but not yet like what i wanted..

try to click the button twice or more, the thread is overlaping by new execute,

what i want is, thread execute twice but waiting one by one done

[mboloz]

'Support' wrote:

This code should close all pages:

Code:

for i := pg.PageCount – 1 downto 0 do
pg.Pages.Free;

😀 Many Thanks, Work like charm..

let's me try on my application..

Best Regard

[mboloz]

'Support' wrote:

Thank you

Try this code:

Code:

for i := pg.PageCount-1 downto 0 do
begin
DeletePage(TsTabSheet(pg.Pages));
end;

Hay Thanks too…

I Tried those code, but there still 1 form left in the docked.. and what i wanted is to close All the docked From

Would You Fixed it please

[mboloz]

That code not work, i just got AV

emm, i just want to make design like browser+desktop feel, and those single button work like logout, so user no need to close one by one

here just the example i have made, if something wrong please correct it

[mboloz]

'CheshireCat' wrote:

Hello and welcome,

this code also works with a sPageControl, take a look at my little demo 🙂

😀 thanks dude, its work!! haha i just get wrong event to place the code must be DragOver i put on DockOver

🙂 Once again thanks…

Best Regard

[Author]

Posts