Вид курсора при создании формы

← →
lety (2002-08-03 08:49) [0]

Если форма открываеся долго, то для создания формы такая процедура:

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;

Так вот. Она действительно не нужна или только при каких-то условиях? И почему курсор меняется сам?

← →
lety (2002-08-04 01:09) [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;

Удачи.

Вид курсора при создании формы Найти похожие ветки