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;

Continuar lendo »

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

Continuar lendo »

Remove um diretório

Remove um diretório procedure Deltree( cPath: string ); var search: TSearchRec; nFiles: integer; begin nFiles:=FindFirst( cPath + ‘*.*’, faAnyFile, search ); while nFiles=0 do begin if Search.Attr = faDirectory then begin if (Search.Name<>’.’) and (Search.Name<>’..’) then begin Deltree( cPath + ‘\’ + Search.Name ); RMDir( cPath + ‘\’ + Search.Name ); end; end else begin

Continuar lendo »
Pages:«1234567...23»