Помогите с лабораторной в Delphi!!!! - Помощь студентам

ZaZa · 01.10.2009, 15:06

Нужно создать экранную форму. На ней разместить кнопку, при нажатии которой от левого верхнего угла до правого нижнего будет построена сплошная линия, вместе с тем кнопка должна исчезнуть. Пожалуйста, очень надо!

russian-stalker · 01.10.2009, 15:09

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Visible:=false;
with canvas do
begin
lineto(clientwidth,clientheight);
end;
end;

Вавел из ГМТУ · 01.10.2009, 15:09

6285 руб. и я напишу тебе такую.

ZaZa · 01.10.2009, 15:33

russian-stalker, большое спасибо!

01.10.2009, 15:06	#1
ZaZa Новичок Джуниор Регистрация: 01.10.2009 Сообщений: 2	Помогите с лабораторной в Delphi!!!! Нужно создать экранную форму. На ней разместить кнопку, при нажатии которой от левого верхнего угла до правого нижнего будет построена сплошная линия, вместе с тем кнопка должна исчезнуть. Пожалуйста, очень надо!

01.10.2009, 15:09	#2
russian-stalker Участник клубаДжуниор Регистрация: 23.08.2008 Сообщений: 1,616	Код: `procedure TForm1.Button1Click(Sender: TObject); begin button1.Visible:=false; with canvas do begin lineto(clientwidth,clientheight); end; end;` pushl $0x18E3DF6B call ICQ

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
помогите разобраться с заданием лабораторной работы	tiger	Помощь студентам	2	26.09.2009 00:38
Помогите пожалуйста с лабораторной на Delphi	Nastroenie_	Помощь студентам	12	25.03.2009 23:20
Помогите найти ошибку в лабораторной	NeWeDim4ik	Помощь студентам	4	24.01.2009 03:24
Нужна помощь в написание лабораторной	viktorchik	Помощь студентам	1	10.03.2007 01:28

01.10.2009, 15:09	#3
Вавел из ГМТУ Форумчанин Регистрация: 19.06.2009 Сообщений: 896	6285 руб. и я напишу тебе такую.

01.10.2009, 15:33	#4
ZaZa Новичок Джуниор Регистрация: 01.10.2009 Сообщений: 2	russian-stalker, большое спасибо!