/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Vente på OnChange event
Fra : Søren Høgedal


Dato : 25-06-01 18:03

Hej

Hvordan får jeg mit program til at vente på at en OnChange Event sker.

EKS.
for i:=1 to 5 do
begin
code her;
vent på OnChange;
code her;
end;

MVH Søren Høgedal



 
 
Rasmus Klitgaard-Nie~ (25-06-2001)
Kommentar
Fra : Rasmus Klitgaard-Nie~


Dato : 25-06-01 19:39

"Søren Høgedal" wrote:
>
> Hej
>
> Hvordan får jeg mit program til at vente på at en OnChange Event sker.
>
> EKS.
> for i:=1 to 5 do
> begin
> code her;
> vent på OnChange;
> code her;
> end;
>
> MVH Søren Høgedal

Normalt vil man da bare tildele et komponents OnChange event til en
procedure, således at proceduren køres når komp. onChange aktiveres...

eventuelt:

var DimsHasChanged:boolean; // Sættes til false først, og til true
onchange (er højst sandsynligt public)

// Et eller andet

for i:=1 to 5 do
begin
//code her
while not DimsHasChanged do
processmessages; // for ikke at programmet går i stå.
// mer' kode
end;

og så en :

procedure TWhatever.onChange(...)
begin
DimsHasChanged:=true;
end;


easy as 3.1415....
--
>o ********* PINKY! aka. Rasmus Klitgaard-Nielsen *********
<()> **** Mad Programmer - Commodore Freak - ABP regular ****
^^ "Can't sing. Can't dance. Can handle a sword a little."
-- Victor's resume (Terry Pratchett, Moving Pictures)

Uffe Kousgaard (25-06-2001)
Kommentar
Fra : Uffe Kousgaard


Dato : 25-06-01 21:01

> easy as 3.1415....

Ups, korrekt afrunding af 3.1415926536 ville have været 3.1416

Hilsen
Uffe




P.L. (22-07-2001)
Kommentar
Fra : P.L.


Dato : 22-07-01 00:25

Hej Søren

Hvad får den, den omtalte onChange event, til at reagere ???
Er det "code her (1)", for så kan jeg ikke se, hvorfor du skal vente ???

Har du ikke fundet ud af det, så svar på ovenstående

--
P.L.

"Søren Høgedal" <hoegedal@mail.tele.dk> skrev i en meddelelse news:9h7qum$sc3$1@news.inet.tele.dk...
> Hej
>
> Hvordan får jeg mit program til at vente på at en OnChange Event sker.
>
> EKS.
> for i:=1 to 5 do
> begin
> code her;
> vent på OnChange;
> code her;
> end;
>
> MVH Søren Høgedal
>
>



Thomas Due (24-07-2001)
Kommentar
Fra : Thomas Due


Dato : 24-07-01 07:54

"P.L." <jessie-peter@get2net.dk> wrote in message news:<3b5a0fa3$0$255$edfadb0f@dspool01.news.tele.dk>...
> Hej Søren
>
> Hvad får den, den omtalte onChange event, til at reagere ???
> Er det "code her (1)", for så kan jeg ikke se, hvorfor du skal vente ???
>
> Har du ikke fundet ud af det, så svar på ovenstående
>
> --
> P.L.
>
> "Søren Høgedal" <hoegedal@mail.tele.dk> skrev i en meddelelse news:9h7qum$sc3$1@news.inet.tele.dk...
> > Hej
> >
> > Hvordan får jeg mit program til at vente på at en OnChange Event sker.
> >
> > EKS.
> > for i:=1 to 5 do
> > begin
> > code her;
> > vent på OnChange;
> > code her;
> > end;
> >
> > MVH Søren Høgedal
> >
> >

Denne opstilling er temmelig "ulovlig" idet du kan risikere at dit program
låser fuldstændig indtil OnChange fyres af. Det du skal gøre er f.eks. i
den pågældende OnChange at sætte et flag.

I din kode kan du så gøre følgende :

For i := 1 to 5 do
begin
// Code
if ONCHANGEFLAG then
begin
ONCHANGEFLAG := FALSE; // 1)
// Code
end;
end;
ONCHANGEFLAG := FALSE; // 2)

Du skal nok kun bruge 1) ELLER 2). Men det kan du selv finde ud af. ;)

Mvh
Thomas

Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408926
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste