---

Hej.

I samtlige af mine forms, som jeg laver (uanset om det er i et nyt eller
gammelt projekt) virker min scrollknap på musen ikke, hvis formens indhold
fylder mere end formen.

Hvad kan rettes, så scrollknappen virker?

---

"Hans Larsen" <Nospam> skrev i en meddelelse
news:42921007$0$28396$ba624c82@nntp06.dk.telia.net...
> Hej.
>
> I samtlige af mine forms, som jeg laver (uanset om det er i et nyt eller
> gammelt projekt) virker min scrollknap på musen ikke, hvis formens indhold
> fylder mere end formen.
>
> Hvad kan rettes, så scrollknappen virker?

Jeg tror ikke det er en fejl for det gør min heller ikke og jeg mener ikke
den nogen side har gjort det. Jeg bruger Delphi 7 proff.

/HK

---

"Harald" <nomail@noname.dk> skrev i en meddelelse
news:42922a8b$0$169$edfadb0f@dtext01.news.tele.dk...
> "Hans Larsen" <Nospam> skrev i en meddelelse
> news:42921007$0$28396$ba624c82@nntp06.dk.telia.net...
>> Hej.
>>
>> I samtlige af mine forms, som jeg laver (uanset om det er i et nyt eller
>> gammelt projekt) virker min scrollknap på musen ikke, hvis formens
>> indhold fylder mere end formen.
>>
>> Hvad kan rettes, så scrollknappen virker?
>
> Jeg tror ikke det er en fejl for det gør min heller ikke og jeg mener ikke
> den nogen side har gjort det. Jeg bruger Delphi 7 proff.

Okay så omformulerer jeg det...

Hvordan kan jeg få min scrollknap til at virke?

---

"Hans Larsen" <Nospam> skrev i en meddelelse
news:429230ba$0$22675$ba624c82@nntp06.dk.telia.net...
>
> "Harald" <nomail@noname.dk> skrev i en meddelelse
> news:42922a8b$0$169$edfadb0f@dtext01.news.tele.dk...
>> "Hans Larsen" <Nospam> skrev i en meddelelse
>> news:42921007$0$28396$ba624c82@nntp06.dk.telia.net...
>>> Hej.
>>>
>>> I samtlige af mine forms, som jeg laver (uanset om det er i et nyt eller
>>> gammelt projekt) virker min scrollknap på musen ikke, hvis formens
>>> indhold fylder mere end formen.
>>>
>>> Hvad kan rettes, så scrollknappen virker?
>>
>> Jeg tror ikke det er en fejl for det gør min heller ikke og jeg mener
>> ikke den nogen side har gjort det. Jeg bruger Delphi 7 proff.
>
> Okay så omformulerer jeg det...
>
> Hvordan kan jeg få min scrollknap til at virke?

Jeg ved det ikke, men prøv evt. at stille ? i
http://www.eksperten.dk/spm/Programmering/Delphi/ også.

/HK

---

"Harald" <nomail@noname.dk> skrev i en meddelelse
news:4292329e$0$177$edfadb0f@dtext01.news.tele.dk...
> "Hans Larsen" <Nospam> skrev i en meddelelse
> news:429230ba$0$22675$ba624c82@nntp06.dk.telia.net...
>>
>> "Harald" <nomail@noname.dk> skrev i en meddelelse
>> news:42922a8b$0$169$edfadb0f@dtext01.news.tele.dk...
>>> "Hans Larsen" <Nospam> skrev i en meddelelse
>>> news:42921007$0$28396$ba624c82@nntp06.dk.telia.net...
>>>> Hej.
>>>>
>>>> I samtlige af mine forms, som jeg laver (uanset om det er i et nyt
>>>> eller gammelt projekt) virker min scrollknap på musen ikke, hvis
>>>> formens indhold fylder mere end formen.
>>>>
>>>> Hvad kan rettes, så scrollknappen virker?
>>>
>>> Jeg tror ikke det er en fejl for det gør min heller ikke og jeg mener
>>> ikke den nogen side har gjort det. Jeg bruger Delphi 7 proff.
>>
>> Okay så omformulerer jeg det...
>>
>> Hvordan kan jeg få min scrollknap til at virke?
>
> Jeg ved det ikke, men prøv evt. at stille ? i
> http://www.eksperten.dk/spm/Programmering/Delphi/ også.
>
Det gør jeg Harald.

Af ren nysgerrighed... Siden du ikke kender en løsning, er det så fordi du
ikke har programmer, hvor formen fylder mindre end indholdet eller har du
bare ikke ønsket at man skal kunne gøre brug af scrollknappen på musen.

Grunden til jeg spører er, at scroll knappen på min mus er et vigtigt
redskab, og jeg ikke kan forstå, at det ikke er indbygget eller nemt at
sætte op til at fungere i sine forms - eller endnu mere at erfarne Delphi
ruger som dig ikke kender en løsning...

(skal ikke læses negativt)

---

"Hans Larsen" <Nospam> skrev i en meddelelse
news:4292390d$0$319$ba624c82@nntp05.dk.telia.net...
> "Harald" <nomail@noname.dk> skrev i en meddelelse
> news:4292329e$0$177$edfadb0f@dtext01.news.tele.dk...
>> "Hans Larsen" <Nospam> skrev i en meddelelse
>> news:429230ba$0$22675$ba624c82@nntp06.dk.telia.net...
>>>
>>> "Harald" <nomail@noname.dk> skrev i en meddelelse
>>> news:42922a8b$0$169$edfadb0f@dtext01.news.tele.dk...
>>>> "Hans Larsen" <Nospam> skrev i en meddelelse
>>>> news:42921007$0$28396$ba624c82@nntp06.dk.telia.net...
>>>>> Hej.
>>>>>
>>>>> I samtlige af mine forms, som jeg laver (uanset om det er i et nyt
>>>>> eller gammelt projekt) virker min scrollknap på musen ikke, hvis
>>>>> formens indhold fylder mere end formen.
>>>>>
>>>>> Hvad kan rettes, så scrollknappen virker?
>>>>
>>>> Jeg tror ikke det er en fejl for det gør min heller ikke og jeg mener
>>>> ikke den nogen side har gjort det. Jeg bruger Delphi 7 proff.
>>>
>>> Okay så omformulerer jeg det...
>>>
>>> Hvordan kan jeg få min scrollknap til at virke?
>>
>> Jeg ved det ikke, men prøv evt. at stille ? i
>> http://www.eksperten.dk/spm/Programmering/Delphi/ også.
>>
> Det gør jeg Harald.
>
> Af ren nysgerrighed... Siden du ikke kender en løsning, er det så fordi du
> ikke har programmer, hvor formen fylder mindre end indholdet eller har du
> bare ikke ønsket at man skal kunne gøre brug af scrollknappen på musen.
>
> Grunden til jeg spører er, at scroll knappen på min mus er et vigtigt
> redskab, og jeg ikke kan forstå, at det ikke er indbygget eller nemt at
> sætte op til at fungere i sine forms - eller endnu mere at erfarne Delphi
> ruger som dig ikke kender en løsning...

Jeg har ikke programmer hvor selve formen fylder mindre end indholdet, hvis
der er meget indhold så deler jeg det op i f.eks. nogle fane blade. Der er
self. tilfælde hvor en del data skal præsenteres for brugeren men der plejer
jeg at bruge en scrollbox. Scrollboxen understøtter dog heller ikke scroll
hjulet men det har åbenbart ikke været et problem for brugeren for ingen har
kommenteret det.... endnu.

/HK

---

Hej Hans.

Det er faktisk meget enkelt: du skal få fat i formens onMouseWheel event og
der skal du tilføje følgende kode:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var pos : integer;
begin

with VertScrollBar do begin
pos := Position;
Dec(Pos, WheelDelta);
Position := pos;
end;
end;


så skulle det gerne virke!

Hilsen
Poul

---

"Poul" <krnlkn@lkdnlknæ-ls.com> skrev i en meddelelse
news:429314ee$0$15133$ba624c82@nntp03.dk.telia.net...
> Hej Hans.
>
> Det er faktisk meget enkelt: du skal få fat i formens onMouseWheel event
> og der skal du tilføje følgende kode:
>
> procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
> WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
> var pos : integer;
> begin
>
> with VertScrollBar do begin
> pos := Position;
> Dec(Pos, WheelDelta);
> Position := pos;
> end;
> end;
>
>
> så skulle det gerne virke!

DOOOOOH!

---

"Poul" <krnlkn@lkdnlknæ-ls.com> skrev i en meddelelse
news:429314ee$0$15133$ba624c82@nntp03.dk.telia.net...
> Hej Hans.
>
> Det er faktisk meget enkelt: du skal få fat i formens onMouseWheel event
> og der skal du tilføje følgende kode:
>
> procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
> WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
> var pos : integer;
> begin
>
> with VertScrollBar do begin
> pos := Position;
> Dec(Pos, WheelDelta);
> Position := pos;
> end;
> end;
>
> så skulle det gerne virke!

Tak til Harald og Poul