Wer ist blöder als blöd?
Ganz genau,
ICH!
bWine := True; // eine globale Variable
Delphi-Quellcode:
procedure TForm1.ScrollToFirstLineOnWine;
begin
if not bWine then exit
else
begin
RichEdit1.Hide; //brachte nix
RichEdit1.SelStart := 0;
RichEdit1.SelLength := 0;
RichEdit1.Perform(EM_SCROLLCARET, 0, 0); //brachte nix
// RichEdit1.Perform(EM_SCROLLCARET, 1, 1); //brachte auch nix
RichEdit1.Update;
RichEdit1.Show; //brachte nix
end;
end;
Das brachte (mehrfach variiert) NIX. Aus Bequemlichkeitsgründen nur in einer VirtualBox mit Lubuntu getestet.
Das inzwischen stundenlange Herumprobieren mit
RichEdit1.Perform(EM_SCROLLCARET, 0, 0);
usw.
oder Sendkeykram
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
usw. brachte NIX.
Des Rätsels Lösung ist/war ganz einfach:
Delphi-Quellcode:
procedure TForm1.ScrollToFirstLineOnWine;
var
s: string;
begin
if not bWine then exit;
s := RichEdit1.Lines.Text;
RichEdit1.Clear;
RichEdit1.Text := s;
end;
Obwohl bWine (unter Windows)
keinen Unterschied macht, reagiert Wine unter Linux doch geringfügig
ANDERS 
Tschuldigung für meine blöde Frage und Danke für's Mitlesen!
MfG