void __fastcall TForm1::FormResize(TObject *Sender)
{
Panel1->Width = Form1->ClientWidth;
Bevel1->Width = Form1->ClientWidth;
RichEdit1->Width = Form1->ClientWidth;
RichEdit1->Height = Form1->ClientHeight - 30;
}
Form = Panel+RichEdit = Глюк
Код:
Так вот, когда Начинаю изменять размер формы и делаю ее меньше чем ~150, начинает расти высота панели.
пробовал вместо ClientHeight - 30 делать ClientHeight - Panel1->Height.
Ноль по фазе. Подскажите, пожалуйста, в чем дело.
p.c. Высота панели маст би 30
Цитата:
Originally posted by 3dNikita
пробовал вместо ClientHeight - 30 делать ClientHeight - Panel1->Height.
пробовал вместо ClientHeight - 30 делать ClientHeight - Panel1->Height.
А что, если не писать кода, а воспользоваться свойством Align у контролов? В частности, выставить Panel1 -> Align = alTop и RichEdit1 -> Align = alClient;
2smartsoft
Можно и так ;). Спасибо. Теперь буду знать.
Можно и так ;). Спасибо. Теперь буду знать.
А вот как мне сделать, чтобы эти 2 параметра были каждый на новой строчке?(А у меня их будет больше чем 2, а надо, чтобы каждый на новой строчке)
Код:
RichEdit1->Lines->Text = Form1->Label8->Caption + Form1->Label10->Caption;
Цитата:
Originally posted by 3dNikita
А вот как мне сделать, чтобы эти 2 параметра были каждый на новой строчке?(А у меня их будет больше чем 2, а надо, чтобы каждый на новой строчке)
А вот как мне сделать, чтобы эти 2 параметра были каждый на новой строчке?(А у меня их будет больше чем 2, а надо, чтобы каждый на новой строчке)
Неужели так трудно догадаться?
Код:
RichEdit1->Lines->Add(Form1->Label8->Caption);
RichEdit1->Lines->Add(Form1->Label10->Caption);
RichEdit1->Lines->Add(Form1->Label10->Caption);
2smartsoft Спасибо.