Hi,
ich hab jetzt mal in mein RichEdit ein Caret eingebunden...
Delphi-Quellcode:
procedure THauptForm.ConsoleKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if CreateCaret(Console.Handle, CaretImage.Picture.Bitmap.Handle, 0, 0) then
ShowCaret(Console.Handle)
else
RaiseLastOSError;
end;
Console = RichEdit...
Nur irgendwie funzt das nicht ....
MFG
DXC