Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Control RichEdit has no parent window

Автор: CHERRY 12.3.2010, 21:17

Если в приведенном коде убрать комментарии //{
в дизайн тайм возникает ошибка
Control RichEdit has no parent window, т.е. когда ставим RichEdit на форму

Думаю проблема в Lines.Count, которого еще нет.
Возможно ли обработать эту ситуацию, или нужно искать другой путь?

Код


//Событие OnCange
procedure TRichEdit.Change(Sender: TObject);
var Rect: TRect;
Begin
//{
If FGutterWidth<GetCharPixelWidth('0')*Length(IntToStr(Lines.Count))+3 Then
 Begin
  FGutterWidth:=GetCharPixelWidth('0')*Length(IntToStr(Lines.Count))+3;
  SendMessage( Handle, EM_GETRECT, 0, LongInt(@Rect));
  IF FShowRuler Then Rect.Top:=FRulerWidth+5 Else Rect.Top:=0;
  IF FShowGutter Then Rect.Left:=FGutterWidth+5 Else Rect.Left:=5;
  SendMessage(Handle, EM_SETRECT, 0, LongInt(@Rect));
  SetRightMargine(FRightMargine);
 End;
//}

Автор: CHERRY 12.3.2010, 21:32

Точно виноват Lines.Count.
Можно ли в компонентах использовать условную компиляцию, чтобы избежать подобных ошибок?

Автор: Snowy 15.3.2010, 13:17

Код

//Событие OnCange
procedure TRichEdit.Change(Sender: TObject);
var 
  Rect: TRect;
  w: Integer;
Begin
//{
  if (Parent <> nil) then w := GetCharPixelWidth('0')*Length(IntToStr(Lines.Count))+3
  else w := 100; // Ну, например 100
If FGutterWidth < w Then
 Begin
  FGutterWidth := w;
  // .....