AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Richedit Scrollbar Event

Ein Thema von martin_ · begonnen am 24. Aug 2010 · letzter Beitrag vom 24. Aug 2010
Antwort Antwort
martin_

Registriert seit: 19. Mai 2008
Ort: Österreich
89 Beiträge
 
#1

Richedit Scrollbar Event

  Alt 24. Aug 2010, 10:40
Hallo,
wie kann ich in einer Richedit Komponente feststellen, ob sich die Scrollbarposition verändert hat? Name des Event in der Scrollbar ist "OnScroll". Nur wie kann ich auf das Event zugreifen?
Danke.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.400 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Richedit Scrollbar Event

  Alt 24. Aug 2010, 11:04
Ich habe gerade kein Delphi verfügbar, aber sollte es nicht genügen, im RichEdit die Messages WM_HSCROLL bzw. WM_VSCROLL zu behandeln?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von barese
barese

Registriert seit: 27. Nov 2009
Ort: Berlin
35 Beiträge
 
Delphi XE7 Architect
 
#3

AW: Richedit Scrollbar Event

  Alt 24. Aug 2010, 11:57
Ich tu das immer mit 'GetScrollPos'...

etwa so...

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var pos,min,max:Integer;
begin
  GetScrollRange(RichEdit1.Handle,sb_vert,min,max);
  pos:=GetScrollPos(RichEdit1.Handle,sb_vert);
  showmessage(inttostr(pos)+' '+inttostr(min)+' '+inttostr(max));
end;
die Variable 'pos' gibt dann einen wert den man mit den bisherigen vergleichen kann.
Hoffe es klappt.
Vergessen
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.400 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Richedit Scrollbar Event

  Alt 24. Aug 2010, 12:00
Dazu müsstest Du aber pollen, oder täusche ich mich? Schöner wäre es IMHO, wenn beim Scrollen einfach ein Event ausgelöst wird.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
martin_

Registriert seit: 19. Mai 2008
Ort: Österreich
89 Beiträge
 
#5

AW: Richedit Scrollbar Event

  Alt 24. Aug 2010, 12:26
Habe es so gemacht:
Delphi-Quellcode:
procedure FormCreate(Sender: TObject);
procedure redtWndProc(var Message: TMessage);

procedure TFormxx.FormCreate(Sender: TObject);
begin
  FOldMemoProc := redt1.WindowProc;
  redt1.WindowProc := redtWndProc;
end;

procedure TFormxx.redtWndProc(var Message: TMessage);
begin
  if ((Message.Msg = WM_VSCROLL)or (Message.Msg = WM_HSCROLL)) then
  begin
    ShowMessage('scroll');
  end
  else
    FOldMemoProc(Message);
end;
Das funktioniert allerdings nur, wenn ich mit der Maus die Scrollbar auswähle. Scrollen mit dem Mausrad funktioniert nicht. Benötige ich da noch weitere Nachrichten? oder ?
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:27 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf