Olí galera eu adiquiri aqui umas apostilas com algumas dicas delphi ai vai algumas dicas...
1º Dica/Como fazer que um aplicativo execute sem a presença do form principal.
Decrição:
Este tipo de aplicação normalmente é aplicações console.cgi,etc...
Program project1;
Users
Forms;
Unit1 in ‘unit.pas’{form1}
{$R *.RES}
Begin
Application.initialize;
Application.showmain := false;
Application.createform(tform1, form1)
Showwindow(application.handle,sw_hide);este comando oculta da taskbar
End.
2º Dica/Movimentando o mouse sem interverção do usuírio .
Descrição:
Para fazer isso deve-se usar um TTimer e colocar o seguinte código em seu evento OnTimer:
Var
pt:tpoint;
begin
getcursorpos(pt)
pt.x := pt.x+1;
pt.y := pt.y+1;
if pt.x>=screen.width-1 then setcursorpos(0,pt.y);
if pt.y>=screen.heigth-1 then setcursorpos(pt.x,0);
end;
3º Dica/Retornando o Ano De uma Data.
Entao vai ai uma função para retornar o ano referente a data enviada através do s parãmetros.
Function Year(const Adate:TdateTime): Integer;
Var
Ano , Mês., Dia: word;
Begin
DecodeDate(Adate,Ano,Mês,Dia);
Result := Dia;
End;
4º Dica/Retornando a posição do cursor do mouse.
Para obter e posição do mouse na tela utilize este código ae, ele é muito usando quando o evento usado não possui “X” e “Y”:
Procedure GetPosition(var X; var Y);
Var
Cpos: Tpoint;
Begin
GetCursorPos(Cpos);
X := Cpos.X;
Y := Cpos.Y;
End;
Boa galera até a próxima ae![]()


Responder com Citação