[pylsar]

Вот собственно такая процедурка есть

Код:

procedure TForm1.Memo1Change(Sender: TObject);
  var
  Rect: TRect;
begin
  SendMessage( Memo1.Handle, EM_GETRECT, 0, LongInt(@Rect));
  Rect.Left:= 10;
  Rect.Top:=10;
  SendMessage(Memo1.Handle, EM_SETRECT, 0, LongInt(@Rect));
  Memo1.Refresh;
end;

Создающая отступы по 10 пикселей сверху и слева. Однако при загрузке другого файла в ту же memo1 снизу съедается 10 пикселей видимого диапазона, и так при каждой загрузке до того момента пока видимой не остается одна строка, остальные строки попадают в невидимый диапазон и просмотреть их можно только движением вертикального скрола.

Код:

procedure TForm1.Button1Click(Sender: TObject);
  var
  i: integer;
begin
  Memo1.Repaint;
  Memo1.Lines.LoadFromFile('F:\1\'+ ComboBox1.Text);
  Memo1.SelStart:= 0;
  Memo1.SelLength := 0;
end;

Как избавится от этого ?

[pylsar]

Вышел из ситуации таким способом

Код:

procedure TForm1.FormActivate(Sender: TObject);
var
   Rect: TRect;
begin
  SendMessage( Memo1.Handle, EM_GETRECT, 0, LongInt(@Rect));
  Rect.Left:= 10;
  Rect.Top:=10;
  SendMessage(Memo1.Handle, EM_SETRECT, 0, LongInt(@Rect));
  Memo1.Refresh;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  Form1.FormActivate(Sender);
end;

Вообще верна ли строчка Form1.FormActivate(Sender) ?

[Bargest]

В Sender передаётся объект, который вызвал событие. Логичнее будет

Код:

 (Sender as TForm1).FormActivate(Sender);

З.Ы. Ради интереса: а если менять размер формы и активность - не глючит?

[Ildar-tsr]

Сообщение от pylsar

Вообще верна ли строчка Form1.FormActivate(Sender) ?

Абсолютно верно

[NumLock]

но, имхо, лучше:

Код:

FormActivate(Self); / FormActivate(Sender);

а то вдруг имя Form1 на FormMain поменяется

[Ildar-tsr]

Сообщение от NumLock

а то вдруг имя Form1 на FormMain поменяется

Компилятор в помощь.

[NumLock]

Сообщение от Ildar-tsr

Компилятор в помощь.

каким местом? если написать:

Код:

procedure TForm1.FormResize(Sender: TObject);
begin
  Form1.FormActivate(Sender);
end;

и переименовать форму, то красный Form1 не изменится.