Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sniper_w,
18. Feb 2005
Versuch es so...
HINWEIS !! Nur wenn du es(Scrolbar) mit dem Mause direkt anklickst und bewegst dann wird auch ein ensprechendes Ereignis aufgerufen. Wenn du es mit dem MouseWheel "scrollst" dann ist das ein ganz anderes Ereignis...
Um mein Beispiel zu benutzen brauchst du ein TRichEdit mit Text (alles im Design modus gemacht), und
2 TLabel-s
type
TMyRichEdit = class(TRichedit)
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sniper_w,
18. Feb 2005
procedure TForm1.Button1Click(Sender: TObject);
var n,lp,wp : integer;
begin
n := SendMessage(RichEdit1.Handle,EM_GETFIRSTVISIBLELINE,wp,lp);
Caption :=RichEdit1.Lines.Strings;
end;