Como alterar o cursor do mouse de seta para ampulheta

Como alterar o cursor do mouse de seta para ampulheta Para alterar o seu cursor de seta para ampulheta, basta inserir antes da rotina a seguinte linha: Screen.Cursor := crHourglass; Após execução da rotina de espera volte o cursor novamente para seta, utilizando o seguinte comando: Screen.Cursor := crDefault;    

Continue reading »

Criando Forms não retangulares

Criando Forms não retangulares Para alterar o formato do form, utilize a rotina abaixo no evento OnClick do form (de preferência troque a propriedade BorderStyle para bsNone, e deixe os componentes mais ao centro do form): procedure TForm1.FormCreate(Sender: TObject); var hR : THandle; begin {cria uma form de formato elíptico} hR := CreateEllipticRgn (0,0,Width,Height); SetWindowRgn (Handle,hR,True); end;

Continue reading »

Ocultar e mostrar o cursor do mouse

Ocultar e mostrar o cursor do mouse Como ocultar e mostrar o cursor do mouse via programação Delphi function MouseShowCursor(const Show: boolean): boolean; // MouseShowCursor(false); { Oculta o cursor } // MouseShowCursor(true); { Exibe o cursor } var I: integer; begin I := ShowCursor(LongBool(true)); if Show then begin Result := I >= 0; while I

Continue reading »
Pages:1234567...23»