Die zijn overigens niet zo lastig. Klein testje leert dat het vanzelf werkt als je een klein stukje uit de RichEdit kopieert.
Zet dit boven je form:
Delphi Code:
type
TMemo = class(StdCtrls.TMemo)
procedure CreateParams(var Params: TCreateParams); override;
end;
TForm1 = ....
Kopieer dan de CreateParams method uit TRichEdit:
Delphi Code:
var
FRichEditModule: THandle;
procedure TMemo.CreateParams(var Params: TCreateParams);
const
RichEditModuleName = 'RICHED32.DLL';
HideScrollBars: array[Boolean] of DWORD = (ES_DISABLENOSCROLL, 0);
HideSelections: array[Boolean] of DWORD = (ES_NOHIDESEL, 0);
begin
if FRichEditModule = 0 then
begin
FRichEditModule := LoadLibrary(RichEditModuleName);
if FRichEditModule <= HINSTANCE_ERROR then FRichEditModule := 0;
end;
inherited CreateParams(Params);
CreateSubClass(Params, 'RICHEDIT');
with Params do
begin
Style := Style or HideScrollBars[False{FHideScrollBars heb ik niet, is property}] or
HideSelections[HideSelection];
WindowClass.style := WindowClass.style and not (CS_HREDRAW or CS_VREDRAW);
end;
end;
En tot ook mijn niet geringe verbazing kun je dan gewoon met Ctrl+Backspace woorden weghalen in een gewone memo. Netter is het natuurlijk om deze speciale memo een andere naam te geven en te registreren als component.
Bookmarks