Делаю компонент это вот так:
unit MyListView;
interface
uses
SysUtils, Classes, Controls, ComCtrls, Windows, Messages, Variants, Graphics, Forms,
Dialogs;
type
MyListView = class(TListView)
ListView1: MyListView;
procedure ListView1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner: TComponent);override;
published
{ Published declarations }
end;
procedure Register;
implementation
procedure MyListView.ListView1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
ListView1.Selected.Caption := 'Ìîé òåêñò';
end;
procedure Register;
begin
RegisterComponents('Win32', [MyListView]);
end;
Constructor MyListView.Create(aOwner: TComponent);
begin
inherited;
OnKeyUp := ListView1KeyUp;
end;
end.
Инсталлю его. Кидаю на форму в тестовом приложении. Создаю там руками пару итемов и caption к ним. Потоп запускаю и хочу редактировать. Редактируется, но когда нажимаю enter, то выскакивает Eacces Violation. Скажите пожалуйста в чем ошибка ? Поправьте пожалуйста.
|