а при запуске
Код: Выделить всё
procedure TForm.FormActivate(Sender: TObject);
var
i : integer;
begin
for i := 0 to PageControl1.PageCount-1 do begin
PageControl1.Pages[i].TabVisible:=true;
end;
Найдено 2 результата
- 29.12.2020 06:17:54
- Форум: Lazarus
- Тема: PageControl Проблемы с закладками
- Ответы: 11
- Просмотры: 13516
Re: PageControl Проблемы с закладками
Решил таким способом - у Табов поставил TabVisible = false
а при запуске
а при запуске
- 03.06.2020 09:42:29
- Форум: Общее
- Тема: No memory left
- Ответы: 11
- Просмотры: 34047
Re: No memory left
Пришлось заархивировать часть ресурсов. После запуска, программа их разархивирует и работает дальше.