Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.03.2011, 22:30   #1
Symba
Пользователь
 
Регистрация: 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 и передвигает её вправо....на моем все правильно показывает,эффект такой будто рабочий стол сдвигается вправо за границу экрана, на двух других компах проект запускается,но ни чего не происходит....не понимаю!!
компьютеры друзей, у увесх стоит хр..
Symba вне форума Ответить с цитированием
Старый 24.03.2011, 01:03   #2
Symba
Пользователь
 
Регистрация: 02.03.2011
Сообщений: 31
По умолчанию

переписал все в новый проект,сохранил в отдельную папку, все заработало!!!
Symba вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Книга 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