ГлавнаяБлогКарты Warcraft 3Гайды для первой ДотыГайды для Доты 2 [ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: XOPYC  
Форум » Работа сайта » Вопросы и ответы » Delphi
Delphi
Дата: Среда, 26.10.2011, 18:29 | Сообщение # 1
Генерал-лейтенант
Проверенные
Сообщений: 522
Награды: 5
Репутация: 26
procedure TForm1.Button1Click(Sender: TObject);
begin
if paint = true then begin
canvas.pen.color:=clred;
canvas.MoveTo(100,100);
canvas.LineTo(500,500); end
else paint:=true;

end;

Вот процедура, я хотел чтобы при нажатии на кнопку рисовалась линия. Создал обработчик события OnClick. При свертывание программы избражение исчезало.Я создал обработчик OnPaint( для формы). Изображение появлялось сразу после того когда запускалась программа.
Я ввел булевскую переменную(глобальную), которая при первом запуске проверяла, если паинт не тру, то нечего не рисовала, но ставила ему значение тру. (чтобы при нажатии кнопки рисунок рисовался). а он пишет ошибку поч???
 
Дата: Четверг, 27.10.2011, 12:04 | Сообщение # 2
Генералиссимус
Ньюсмейкер
Сообщений: 2438
Награды: 8
Репутация: 85
TOTKTO3HAETBCE, >_< прогу целиком + в след. месяце, ща трафика нет для скачек.
 
Форум » Работа сайта » Вопросы и ответы » Delphi
  • Страница 1 из 1
  • 1
Поиск: