• Registered: 2015-12-07
  • Posts: 162

Topic: Увеличение размеров окна мемо при наведении курсора.

Добрый день, можно ли как то реализовать увеличение окна поля MEMO при наведении мышки на это окно? (либо при помещении курсора и при вводе текста в эту область) Либо на определенную ширину/длину, либо в зависимости от положения якорей.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Увеличение размеров окна мемо при наведении курсора.

Приветствую,


пример

procedure Form1_Memo1_OnEnter (Sender: string);
begin
    Form1.Memo1.Width := 250;
    Form1.Memo1.Height := 250;
end;

procedure Form1_Memo1_OnExit (Sender: string);
begin
    Form1.Memo1.Width := 185;
    Form1.Memo1.Height := 89;
end;
Dmitry.
  • Registered: 2015-12-07
  • Posts: 162

Re: Увеличение размеров окна мемо при наведении курсора.

Спасибо.
А не подскажите еще как отключить сортировку по возрастанию/убыванию в шапке таблицы, при нажатии на заголовок каждого столбца?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Увеличение размеров окна мемо при наведении курсора.

memult wrote:

Спасибо.
А не подскажите еще как отключить сортировку по возрастанию/убыванию в шапке таблицы, при нажатии на заголовок каждого столбца?

Извиняюсь за задержку с ответом, был в отпуске.


Можно так

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.TableGrid1.Columns[0].Options := Form1.TableGrid1.Columns[0].Options - coCanSort; // для первого столбца
    Form1.TableGrid1.Columns[1].Options := Form1.TableGrid1.Columns[1].Options - coCanSort; // для второго столбца и т.д.
end;
Dmitry.