Вопрос № 39978: Здравствуйте! Подскажите, пожалуйста, обработчик событий для нажатия на кнопку окна "Развернуть". Спасибо!...Вопрос № 40003: Здравтсвуйте! Никак не могу сделатьтак , чтобы столбцы(их 5) DBGrid при перетасеивании Splitter`а, который отделяет ее от другой DBGrid, по ширине были все одинаковые(без отступов от края сетки, чтобы не было гориз. прокрутки). Буду очень признателен...Вопрос
№ 40004: Доброе время суток!
Очень прошу Вас о помощи тк самому эту программу написать не получается;
На форму выводится системное время(ч м с)
Если значение секунды кратное двум то рисуем вертикально 9 прямоугольников и закрашиваем их любыми...
Вопрос № 39.978
Здравствуйте! Подскажите, пожалуйста, обработчик событий для нажатия на кнопку окна "Развернуть". Спасибо!
Отвечает: Евгения
Здравствуйте, Андрющенко Вячеслав Васильевич!
Свойство WindowState wsMaximized – Окно первоначально будет развернуто во весь экран. wsMinimized – Окно первоначально будет свернуто в значок. wsNormal – Окно имеет те же размеры, что и во время разработки. Значение по умолчанию.
Может поможет?
Сильно не бейте...
Ответ отправила: Евгения (статус: 3-ий класс)
Ответ отправлен: 11.04.2006, 13:08
Отвечает: Полховский Александр Владимирович
Здравствуйте, Андрющенко Вячеслав Васильевич!
Можно обработать событие OnResize, выполнив проверку на уже описанное выше свойство. Но это обработчик изменения размера, любого изменения, не только развёртывания.
Это не единственный способ. Ещё можно обрабатывать сообщения, посылаемые окну. Вот простой пример:
procedure TForm1.WMSyscommand(var msg: TWmSysCommand);
begin
case (msg.CmdType and $FFF0) of
SC_MINIMIZE: begin
ShowMessage('Window about to MINIMIZE');
end;
SC_RESTORE : begin
ShowMessage('Window about to RESTORE');
end;
SC_MAXIMIZE: begin
ShowMessage('Window about to MAXIMIZE');
end;
end;
inherited;
end;
procedure TForm1.WMSize(var msg: TWMSize);
begin
If msg.Sizetype = SIZE_MAXIMIZED then
ShowMessage('Window MAXIMIZED');
inherited;
end;
// Обработка сообщения WM_SYSCOMMAND
procedure TMain.WMGetSysCommand(var message : TMessage) ;
begin
if (message.wParam = SC_MAXIMIZE) then
Main.Visible := False
else
inherited;
end;
--------- Мыслю - занчит существую (Декарт)
Ответ отправил: Рубан Николай Николаевич (статус: 3-ий класс)
Ответ отправлен: 12.04.2006, 11:08
Вопрос № 40.003
Здравтсвуйте! Никак не могу сделатьтак , чтобы столбцы(их 5) DBGrid при перетасеивании Splitter`а, который отделяет ее от другой DBGrid, по ширине были все одинаковые(без отступов от края сетки, чтобы не было гориз. прокрутки). Буду очень признателен, если поможете!
Отвечает: Рубан Николай Николаевич
Здравствуйте, Андрющенко Вячеслав Васильевич!
Может вот такой ответ вам поможет
procedure TForm1.Splitter1Moved(Sender: TObject);
var n1,n2,i:integer;
begin
n1:=DBGrid1.Columns.Count;
for i:=0 to n1-1 do
DBGrid1.Columns.Items[i].Width:=(DBGrid1.Width div n1)-n1;
n2:=DBGrid2.Columns.Count;
for i:=0 to n2-1 do
DBGrid2.Columns.Items[i].Width:=(DBGrid2.Width div n2)-n2;
end;
--------- Мыслю - занчит существую (Декарт)
Ответ отправил: Рубан Николай Николаевич (статус: 3-ий класс)
Ответ отправлен: 12.04.2006, 11:34
Вопрос № 40.004
Доброе время суток!
Очень прошу Вас о помощи тк самому эту программу написать не получается;
На форму выводится системное время(ч м с)
Если значение секунды кратное двум то рисуем вертикально 9 прямоугольников и закрашиваем их любыми цветами
Если значение секунды не кратное двум то рисуем горизонтально и закрашиваем их любыми цветами
Буду очень признателен!
Спасибо!
Отправлен: 11.04.2006, 16:49
Вопрос задал: Sexy (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Bochvarov NikB
Здравствуйте, Sexy!
А что тебе не ясно?
1. Как рисовать один прямоуголник?
2. Как сделать цикъл for?
3. Как вьибрать "любьие цвета"?
4. Или все?
Приложение:
Ответ отправил: Bochvarov NikB (статус: 7-ой класс)
Ответ отправлен: 11.04.2006, 17:08
