"Thomas Holmgren" <thm@regnecentralen.dk> skrev i en meddelelse
news:3f661401$0$7225$ba624c82@nntp02.dk.telia.net...
> Hej!
>
> Jeg har en TMemo hvori der appendes et antal linier på runtime. Hvordan
får
> jeg min TMemo til at scrolle til bunden således at den senest tilføjede
> linie er synlig?
>
>
> --
> Mvh.
> Thomas Holmgren
>
Hej Thomas
Ikke særlig kønt, men det virker
/Yngve
begin
memo1.setfocus;
setForeGroundWindow(TWinControl(memo1).handle);
keybd_event(vk_Control,mapVirtualKey(vk_Control,0),0,0);
keybd_event(vk_end,mapVirtualKey(vk_end,0),0,0);
keybd_event(vk_end,mapVirtualKey(vk_end,0),keyeventf_KeyUp,0);
keybd_event(vk_Control,mapVirtualKey(vk_Control,0),keyeventf_KeyUp,0);
end;
|