Control Myrich1 has no parent window

← →
Gydvin © (2006-04-10 11:23) [0]

Чтоөто не пойму, что я тут намутил, компонент нормально собирается, а когда его кидаешь на форму возникает сабжевое сообщение (((.
Не я конечно читал что при создании визуального компонента надо определять parent, но как это делается не понял. Гляньте кто не будь если не тяжело

unit myRich;

interface

uses
SysUtils, Classes, Controls, StdCtrls, ComCtrls,Messages,windows;

type
TmyRich = class(TRichEdit)
private
procedure mypaint;

{ Private declarations }
protected
Procedure Change ;override;
{ Protected declarations }
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;

{ Public declarations }
published
{ Published declarations }
end;
var
hand:integer;
procedure Register;

implementation

constructor TmyRich.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
hand:=-1;
end;

destructor TmyRich.Destroy;
begin
hand:=-1;
inherited;
end;

procedure TmyRich.mypaint;
var
dc : hDc;
Pen : hPen;
OldPen : hPen;
OldBrush : hBrush;
Msg: TWMNCPaint ;
begin

dc := hand;
msg.Result := 1;
Pen := CreatePen(PS_SOLID, 1, RGB(255, 0, 0));
OldPen := SelectObject(dc, Pen);
OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));
windows.MoveToEx(dc,0,0,nil);
windows.LineTo(dc,100,100);
SelectObject(dc, OldBrush);
SelectObject(dc, OldPen);
DeleteObject(Pen);
ReleaseDC(dc, dc);
end;

Procedure TmyRich.Change;
begin
inherited Change;
hand:= handle;
mypaint;
end;

procedure Register;
begin
RegisterComponents("Samples", [TmyRich]);
end;

end.

← →
Gydvin © (2006-04-10 13:56) [1]

ааааа, помогите, я уже незнаю, что делать

← →
AbrosimovA (2006-04-10 15:04) [2]

constructor TmyRich.Create(AOwner: TComponent); begin inherited Create(AOwner); Parent:=AOwner as TWinControl; hand:=-1; end;

> AbrosimovA (10.04.06 15:04) [2]

Большое спасибо! Как все просто, а то я уже vcl зарылся

Control Myrich1 has no parent window Найти похожие ветки