Pular para o conteúdo principal

Mudar Cursor de Edit Criado Dinamicamente

Temos o seguite caso, devemos criar Edits em tempo de execução, onde sempre que o ponteiro do mouse passar por um Edit, seja ele qual for, o ponteiro do Mouse deve mudar, apresentando dois tipos distintos, um para o caso do Edit estar vazio e outro quando ele estiver preenchido, além do fato de que quando um certo formulário for aberto o conteúdo do Edit selecionado deve ir para um Edit do novo formulário, segue abaixo o código, ou baixe aqui o exemplo:


var
Form1 : TForm1;
Edt : TEdit;
Cont : integer = 1;
vLeft : integer = 8;
vTop : integer = 40;
vWidth : integer = 81;
vHeight: integer = 21;
vSelect: string;


implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.criaEdt(p_left: integer; p_top: integer; p_width: integer; p_nome: string);
begin
Edt := TEdit.Create(Self);
WITH Edt DO
BEGIN
Parent := Self;
Left := p_left;
Top := p_top;
Width := p_width;
Height := 21;
Name := 'A'+p_nome;
OnMouseMove:= EdtMouseMove;
OnEnter := EdtEnter;
SetFocus;
END;
end;

procedure TForm1.EdtMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
IF (Sender as TEdit).Text = '' THEN
(Sender as TEdit).Cursor := crHandPoint
ELSE
(Sender as TEdit).Cursor := crMultiDrag;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IF Cont = 1 THEN
criaEdt(vLeft, vTop, vWidth, IntToStr(Cont))
ELSE IF Cont <= 4 THEN
BEGIN
vTop := vTop + 32;
criaEdt(vLeft, vTop, vWidth, IntToStr(Cont));
END
ELSE
ShowMessage('Não é possivel criar mais!');

Inc(Cont);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form2 := TForm2.Create(Self);
Form2.Edit1.Text := TEdit( FindComponent( vSelect ) ).Text;
Form2.ShowModal;
Form2.Release;
end;

procedure TForm1.EdtEnter(Sender: TObject);
begin
vSelect := (Sender as TEdit).Name;
end;

end.

Comentários

Mais visitadas

Listar arquivos existentes em diretório (Delphi)

Mostraremos uma maneira simples e prática para listar o conteúdo de um diretório com a opção de incluir nessa listagem os arquivos de seus subdiretórios. No exemplo abaixo temos um Edit para receber o diretório a ser pesquisado um CheckBox para indicar se os subdiretórios entrarão na pesquisa um botão para efetuar a pesquisa e um Memo para listar os arquivos encontrados, no final um Edit que receberá o cálculo final (em bytes) da soma do tamanho dos arquivos. procedure TForm1.Button1Click(Sender: TObject); begin   tamanhoTotal := 0;   memLista.Lines.Clear;   ListarArquivos(edtDiretorio.Text, chkSub.Checked);   Edit1.Text := IntToStr( tamanhoTotal ); end; procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean); var   F: TSearchRec;   Ret: Integer;   TempNome: string; begin   Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F);   try     while Ret = 0 do ...

Funções de data Oracle

  Com o Oracle é possível obter uma série de resultados a partir de uma ou mais datas, como por exemplo verificar o último dia do mês ou verificar a quantidade de meses entre duas datas, então vamos a alguns exemplos:   Data atual do sistema: SYSDATE Remover meses de uma data: ADD_MONTHS(SYSDATE, -1) Adicionar meses de uma data: ADD_MONTHS(SYSDATE, +1) Buscar o último dia do mês: LAST_DAY(SYSDATE) Primeiro dia do mês: TRUNC(SYSDATE, ‘MONTH’) Quantidade de meses entre duas datas: MONTHS_BETWEEN(SYSDATE, ‘27/07/1982’) Primeiro dia do ano: TRUNC(SYSDATE, ‘YEAR’) Dias da semana: DECODE( TO_NUMBER( TO_CHAR          (SYSDATE, ‘D’) ) ,1, ‘domingo’ ,2, ‘segunda-feira’ ,3, ‘terça-feira’ ,4, ‘quarta-feira’ ,5, ‘quinta-feira’ ,6, ‘sexta-feira’ ,7,’sábado’ )

Lista de políticos com ficha suja

ATUALIZAÇÃO (08/03/2012 ano de eleição) Representantes de duas pessoas da lista (Eliseu Padilha e Alex Canziani) entraram em contato e pediram que esses fossem removidos, alegando que não houve condenação. É justo essa requisição, porém vale lembrar que escândalos nacionalmente reconhecidos de corrupção não deram em nada, por isso o que realmente conta nesse ano de eleição é uma pesquisa minuciosa sobre os candidatos escolhidos, eu particularmente, por não estar nem um pouco satisfeito, não irei votar em ninguém que já tenha sido eleito. Estou voltando a postar por um motivo nobre, meu tempo continua apertado mas esse post é rápido, na verdade nem meu ele é (visitem o espaço de nosso amigo Lord ), estou apenas repassando essa valiosa informação. Teremos eleição esse ano, e é importante não repetirmos erros passados, vamos ficar atentos em relação a esses nomes e exclui-los de vez do cenário politico nacional. Façamos nossa parte, publicando em nossos blog...