also ich hab folgenden code in einem
Package installiert und es kam auch die meldung das die Kompo installiert wurde, aber immer wenn ich sie dann auf ein formular ziehe, kommt wenn ich die strg+leer taste drück 'programmierhilfe kann nicht aufgerufen werden das der quelltext fehler enthält, aber da is absolut kein fehler.. kannst du mir helfen?
hier die codes:
das meine Kompo (kennste die
)
Delphi-Quellcode:
unit Unit2;
interface
uses
SysUtils, Classes, Controls, StdCtrls, ComCtrls, Dialogs;
type
TColoredStrings =
class(TStringList)
private
{ Private-Deklarationen }
protected
{ Protected-Deklarationen }
public
function AddLines(
const S:
string): integer;
{ Public-Deklarationen }
published
{ Published-Deklarationen }
end;
TQRichEdit =
class(TRichEdit)
private
{ Private-Deklarationen }
FMyLines: TColoredStrings;
protected
{ Protected-Deklarationen }
public
{ Public-Deklarationen }
published
{ Published-Deklarationen }
property Lines: TColoredStrings
read FMyLines
write FMyLines;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
Beispiele', [TQRichEdit]);
end;
function TColoredStrings.AddLines(
const S:
string): integer;
begin
showmessage(S);
end;
end.
und hier der aufruf:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Unit2;
type
TForm1 =
class(TForm)
Button1: TButton;
QRichEdit1: TQRichEdit;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('
asd');
end;
end.
aber wo zur hölle is der Fehler???????