Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно
pva pva вне форума

Аватара для pva

Ветеран


Сообщения: 1180
Благодарности: 279

Профиль | Отправить PM | Цитировать


1) для этого необходимо подключить графические библиотеки. Делфи устроена так, что не даёт одновременно подключать VCL, но наверное её можно обмануть, если создать и сохранить проект с формой, затем создать консольный проект и добавить в него все модули из графического. Потом удалить те, которые были из консольного.
2) Для этого используется функция TCanvas.CopyRect
Код: Выделить весь код
Copies part of an image from another canvas into the canvas. 

procedure CopyRect(Dest: TRect; Canvas: TCanvas; Source: TRect);

Description

Use CopyRect to transfer part of the image on another canvas to the image of the TCanvas object. Dest specifies the rectangle on the canvas where the source image will be copied. The Canvas parameter specifies the canvas with the source image. Source specifies a rectangle bounding the portion of the source canvas that will be copied.

The portion of the source canvas is copied using the mode specified by CopyMode.
пользуем изнутри procedure TForm.что_нибудь
Код: Выделить весь код
var
	screen : TCanvas;
	dest_rect : TRect;
begin
	screen := TCanvas.create;
	screen.handle := GetDC(0);
	
	// копируем на форму
	canvas.copyRect(Rect(0, 0, 100, 40), screen, Rect(1280-100, 1024-40, 100, 40));

	ReleaseDC(0, screen.handle)
end
Ещё можно через WinApi сделать окошки, но начинающему это геморно
Это сообщение посчитали полезным следующие участники:

Отправлено: 08:23, 24-02-2010 | #7