Folgendes Problem habe ich:
Das Panel5 läuft langsam über das Richtedit. Wenn der Text zu Ende ist, soll auch das Panel5 abschalten. Ansonsten läuft das Programm Seite für Seite einwandfrei.
Zwei Fragen habe ich:
1.) Wie kann ich die jeweilige Postion einer Zeile fesstellen und legen.
2.) Wie kann ich am Ende mit Richtedit3.lines.count-1 eine IF-Abfrage mit dem feststellen des Textendes erreichen. Anbei der Code.
procedure TimeCallback4(TimerID,Msg: UINT; dwUser, dw1, dw2 Word); pascal;
var I, Richend1 : Integer;
begin
Richend := Form1.RichEdit3.Lines.Count;
Richend1 := Form1.RichEdit3.Lines.Count-1;
if Screen.Width = 800 then
begin
I := Z;
Form1.Panel5.Top := Z;
Z := Z+1;
if Z = 495 then
begin
Z := 0;
Form1.RichEdit3.Visible := false;
SendMessage(Form1.RichEdit3.Handle,EM_SCROLL,SB_PA GEDOWN,0);
SendMessage(Form1.RichEdit3.Handle,EM_SCROLL,SB_LI NEDOWN,0);
Form1.RichEdit3.Visible := True;
end;
end;
if Screen.Width = 1024 then
begin
I := Z;
Form1.Panel5.Top := Z;
Z := Z+1;
if Z = 620 then
begin
Z := 0;
Form1.RichEdit3.Visible := false;
SendMessage(Form1.RichEdit3.Handle,EM_SCROLL,SB_PA GEDOWN,0);
SendMessage(Form1.RichEdit3.Handle,EM_SCROLL,SB_LI NEDOWN,0);
Form1.RichEdit3.Visible := True;
end;
end;
end;
Vielen Dank
Wolfgang Rademacher
Das Panel5 läuft langsam über das Richtedit. Wenn der Text zu Ende ist, soll auch das Panel5 abschalten. Ansonsten läuft das Programm Seite für Seite einwandfrei.
Zwei Fragen habe ich:
1.) Wie kann ich die jeweilige Postion einer Zeile fesstellen und legen.
2.) Wie kann ich am Ende mit Richtedit3.lines.count-1 eine IF-Abfrage mit dem feststellen des Textendes erreichen. Anbei der Code.
procedure TimeCallback4(TimerID,Msg: UINT; dwUser, dw1, dw2 Word); pascal;
var I, Richend1 : Integer;
begin
Richend := Form1.RichEdit3.Lines.Count;
Richend1 := Form1.RichEdit3.Lines.Count-1;
if Screen.Width = 800 then
begin
I := Z;
Form1.Panel5.Top := Z;
Z := Z+1;
if Z = 495 then
begin
Z := 0;
Form1.RichEdit3.Visible := false;
SendMessage(Form1.RichEdit3.Handle,EM_SCROLL,SB_PA GEDOWN,0);
SendMessage(Form1.RichEdit3.Handle,EM_SCROLL,SB_LI NEDOWN,0);
Form1.RichEdit3.Visible := True;
end;
end;
if Screen.Width = 1024 then
begin
I := Z;
Form1.Panel5.Top := Z;
Z := Z+1;
if Z = 620 then
begin
Z := 0;
Form1.RichEdit3.Visible := false;
SendMessage(Form1.RichEdit3.Handle,EM_SCROLL,SB_PA GEDOWN,0);
SendMessage(Form1.RichEdit3.Handle,EM_SCROLL,SB_LI NEDOWN,0);
Form1.RichEdit3.Visible := True;
end;
end;
end;
Vielen Dank
Wolfgang Rademacher