|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.03.2011, 22:30 | #1 |
Пользователь
Регистрация: 02.03.2011
Сообщений: 31
|
кто может объяснить,почему на моем компе программа работает на других нет?код в Delphi
unit Unit2;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) img1: TImage; tmr1: TTimer; procedure tmr1Timer(Sender: TObject); procedure FormKeyPress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.tmr1Timer(Sender: TObject); var i:Integer; canvas:TCanvas; screenDC:HDC; begin img1.Left:=img1.Left+10; if img1.Left=ClientWidth then begin img1.Top:=0; img1.Left:=0; img1.Width:=Screen.Width; img1.Height:=Screen.Height; screenDC:=GetDC(0); canvas:=TCanvas.Create(); canvas.Handle:=screenDC; img1.Canvas.CopyRect(Rect(0,0,Scree n.Width,Screen.Height), canvas,Rect(0,0,Screen.Width,Screen .Height)); ReleaseDC(0,screenDC); canvas.Free end; end; procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key=#27 then form1.Close; end; end. прога копирует рабочий стол, вставляет в image1 и передвигает её вправо....на моем все правильно показывает,эффект такой будто рабочий стол сдвигается вправо за границу экрана, на двух других компах проект запускается,но ни чего не происходит....не понимаю!! компьютеры друзей, у увесх стоит хр.. |
24.03.2011, 01:03 | #2 |
Пользователь
Регистрация: 02.03.2011
Сообщений: 31
|
переписал все в новый проект,сохранил в отдельную папку, все заработало!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Книга Excel c макросом VBA работает только на моем компе, на других она считает не правильно...почемуууу? | Lays | Microsoft Office Excel | 8 | 13.12.2010 11:29 |
кто может объяснить??? | Надежда Карунова | Помощь студентам | 1 | 25.11.2010 17:38 |
кто может исправить ошибку в моем коде написанном на С++ | Андрей777 | Общие вопросы C/C++ | 7 | 10.04.2010 22:49 |
кто знает почему не работает код | andRR | Общие вопросы C/C++ | 6 | 14.06.2009 22:24 |
Программа не работает на другом компе! | Gawwws | Microsoft Office Excel | 1 | 28.11.2008 18:03 |