![]()  | 
	
 
  | 
		
			
  | 	
	
	
		
		|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны | 
![]()  | 
	
	
| 
		 | 
	Опции темы | Поиск в этой теме | Опции просмотра | 
| 
	 | 
| 
		 
			 
			#1  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Задача вот в чем - В Delphi 7 хочу нарисовать прямоугольник.Создал проект, файл proba1.pas.В Object Inspector установил свойства Form1: 
		
	
		
		
		
		
		
	
		
		
	
	
	Capition- Proba,Name - Form1,Height - 500,Width - 600,Top - 100,Left - 200. В окне кода в шаблоне в разделе implementation после (&R*.dfm) ввожу метод Form1.Canvas.Rectangle(250,250,350,350); При компиляции или проверки (Syntax check) выдает: [Error]prob1.pas(26)Declaretion expected but indentifier 'Form1' found. Объясните чайнику - что неверно?  | 
| 
		 
			 
			#2  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 А вот так тебе не подойдёт: 
		
	
		
		
		
		
			
		
		
		
		
	
		
		
	
	
	Код: 
	unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
  public
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Canvas.Rectangle(250,250,350,350);
end;
end. | 
| 
		 
			 
			#3  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Yurk@-у : Спасибо!Такой код компилируется, правда при запуске в окне 
		
	
		
		
		
		
		
	
		
		
	
	
	формы пока не вижу прямоуголника.Наверное надо установить свойства Pen и Brush?  | 
| 
		 
			 
			#4  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Сделай в событии OnPaint. 
		
	
		
		
		
		
			
		
		
		
		
	
		
		
	
	
	 | 
| 
		 
			 
			#5  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Согласен! 
		
	
		
		
		
		
			
		
		
		
		
	
		
		
	
	
	Спасибо за корект!  | 
| 
		 
			 
			#6  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Цитата: 
	
  | 
| 
		 
			 
			#7  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Зайди во вкладку События (Events) у формы, и там два раза щелкни на OnPaint. 
		
	
		
		
		
		
			
		
		
		
		
		
			Последний раз редактировалось The Shadow, 03.11.2007 в 14:33.  | 
| 
		 
			 
			#8  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Это произошло из-за того, что после implementation начинается исполняемая часть, и вней описываются подпрограммы, которые были объявленны в интерфейсной части, и другие объекты, а ты ка я понял, написал Form1.Canvas.Rectangle(250, 250, 350, 350) просто так, не в каком-нибудь методе, а этого делать нельзя. 
		
	
		
		
		
		
			
		
		
		
		
	
		
		
	
	
	 |