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

Aplicação Flask usando Nginx e Gunicorn

Aplicação Flask usando Nginx e Gunicorn Se você já desenvolveu uma aplicação Flask básica, sabe que o servidor de desenvolvimento embutido não é ideal para produção. Ele não é projetado para lidar com altos volumes de tráfego ou conexões simultâneas. Para tornar sua aplicação Flask mais robusta e pronta para produção, podemos usar o Gunicorn como servidor de aplicação e o Nginx como proxy reverso. Neste artigo, vamos adaptar o exemplo anterior ( Criando uma Aplicação CRUD com Flask, PostgreSQL e Docker ) para incluir o Nginx e o Gunicorn. O que são Nginx e Gunicorn? Gunicorn O Gunicorn (Green Unicorn) é um servidor de aplicação WSGI que roda aplicações Python como o Flask. Ele é eficiente e simples de configurar, lidando com múltiplas requisições ao mesmo tempo, algo que o servidor embutido do Flask não faz bem. Nginx O Nginx é um servidor web que atua como um proxy reverso. Ele recebe requisições HTTP e as encaminha ao Gunicorn. Além disso, o Nginx pode: Servir arquivos ...

Array no PL/SQL (Oracle)

Trabalhar com estruturas indexadas pode nos poupar muito trabalho, deixar o código mais limpo e reutilizável, pois bem vamos dar um exemplo de como fazer isso no PL/SQL. Criaremos um tipo table que seja capaz de armazenar nomes de uma tabela de funcionários de forma indexada, e em seguida mostraremos o que foi armazenado, segue o código: 1: declare 2: -- tipo tabela contendo apenas texto e indexado 3: type TipoNomFunc is table of varchar 2(200) index by binary_integer; 4: -- variável do nosso tipo (como nosso tipo é indexado ele funcionará como um array) 5: func TipoNomFunc; 6: -- indice para loop 7: indice number := 1; 8: -- 9: begin 10: -- 11: -- cursor para nossa tabela de funcionarios 12: for emps in ( 13: select * 14: from funcionarios 15: ) 16: loop 17: -- colocamos o nome do funcionario em nosso "vetor" 18: func(indice) := emps.nom_funcionario; 19: -- incrementamos o indice 20:...

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 ...