| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вид курсора при создании формы
lety © (2002-08-03 08:49:00)Если форма открываеся долго, то для создания формы такая процедура:
procedure F1Create;
var
Save_Cursor: TCursor;
begin
Save_Cursor := Screen.Cursor;
Screen.Cursor := crHourglass;
Form1:=TForm1.Create(nil);
...
Screen.Cursor:=Save_Cursor; {Но эта строчка оказывается не нужна. Курсор сам восстанавливается в исходный}
Form1.ShowModal;
...
Form1.Release;
end;
Так вот. Она действительно не нужна или только при каких-то условиях? И почему курсор меняется сам?
Almaz (2002-08-04 02:04:00) [1]Эта строчка действительно не нужна. Взгляните на исходный текст функции ShowModal и все станет понятно:
function TCustomForm.ShowModal: Integer;
var
SaveCursor: TCursor;
...
begin
...
SaveCursor := Screen.Cursor;
Screen.Cursor := crDefault;
try
Show;
...
finally
if Screen.FCursorCount = SaveCount then
Screen.Cursor := SaveCursor
else Screen.Cursor := crDefault;
...
end;
end;
Удачи.
lety (2002-08-04 01:09:00) [2]up
| |
