|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.05.2010, 16:46 | #1 |
Участник клуба
Регистрация: 26.05.2010
Сообщений: 1,648
|
Что не правильно?
procedure TForml.TimerlTimer(Sender: TObject);
var i:Integer; h:THandle; begin Visible:=true; //Сделать окно видимым //Установить верхнюю позицию окна в левый нижний угол экрана Тор:=Screen.Height-Height; Left:=l; Тор:=Screen.Height-Height; (чем это страка не правильна указатель на слово Top показывает)???
This world will never be What I expected (c)
|
28.05.2010, 16:50 | #2 | |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
Цитата:
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
|
28.05.2010, 16:53 | #3 |
Участник клуба
Регистрация: 26.05.2010
Сообщений: 1,648
|
да там так і напісано просто плохо скопіровала я это пров6рял!нето...
This world will never be What I expected (c)
|
28.05.2010, 16:54 | #4 |
Участник клуба
Регистрация: 26.05.2010
Сообщений: 1,648
|
ой, прости за язык)))
This world will never be What I expected (c)
|
28.05.2010, 16:57 | #5 |
Участник клуба
Регистрация: 26.05.2010
Сообщений: 1,648
|
так может лучше...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; Timer1: TTimer; procedure Image1Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormShow(Sender: TObject); begin Width:=85;//Установить ширину окна Height:=29;//Установить высоту Left:=-100;//Убрать окно за левую границу экрана end; procedure TForm1.Timer1Timer(Sender: TObject); var i:Integer; h:THandle; begin Visible:=true; //Сделать окно видимым //Установить верхнюю позицию окна в левый нижний угол экрана Тор:=Screen.Height-Height; Left:=l; h:=CreateEvent(nil, true,false, ' e t ' ); for i:=l to 80 do begin Top:=Screen.Height-Height-i*5; Repaint; WaitForSingleObject(h,15); for i::=80 downto 1 do begin Top: =Screen. Height-Height-.!*5; Repaint; WaitForSingleObject(h,15); end; Closehandle(h); //Уничтожается указатель h Visible:=false; //Прячется окно, end; end.
This world will never be What I expected (c)
|
28.05.2010, 16:57 | #6 |
Участник клуба
Регистрация: 26.05.2010
Сообщений: 1,648
|
так может лучше...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; Timer1: TTimer; procedure Image1Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormShow(Sender: TObject); begin Width:=85;//Установить ширину окна Height:=29;//Установить высоту Left:=-100;//Убрать окно за левую границу экрана end; procedure TForm1.Timer1Timer(Sender: TObject); var i:Integer; h:THandle; begin Visible:=true; //Сделать окно видимым //Установить верхнюю позицию окна в левый нижний угол экрана Тор:=Screen.Height-Height; Left:=l; h:=CreateEvent(nil, true,false, ' e t ' ); for i:=l to 80 do begin Top:=Screen.Height-Height-i*5; Repaint; WaitForSingleObject(h,15); for i::=80 downto 1 do begin Top: =Screen. Height-Height-.!*5; Repaint; WaitForSingleObject(h,15); end; Closehandle(h); //Уничтожается указатель h Visible:=false; //Прячется окно, end; end.
This world will never be What I expected (c)
|
28.05.2010, 17:02 | #7 |
Форумчанин
Регистрация: 05.04.2010
Сообщений: 410
|
В слове Top какая-то буква (или несколько) набраны на русском языке, исправь.
ICQ: 593-013-807
|
28.05.2010, 17:09 | #8 |
Участник клуба
Регистрация: 26.05.2010
Сообщений: 1,648
|
пасибо!!!!!!!!!!!
for i::=80 downto 1 do ( вот теперь в этой 1 двоеточіе я убрал)
This world will never be What I expected (c)
|
28.05.2010, 17:30 | #9 |
Участник клуба
Регистрация: 26.05.2010
Сообщений: 1,648
|
всем спасибо! я сам разобрался)
This world will never be What I expected (c)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
что не правильно? | danlex | Общие вопросы C/C++ | 3 | 26.05.2010 21:32 |
Что не правильно | Ser | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 1 | 16.12.2009 08:12 |
Что не правильно делаю с free(); | Winston123 | Общие вопросы C/C++ | 25 | 15.06.2009 21:21 |