(Resolvido) Configurar Cursor

[robinhocne]

Olá pessoal.

Como eu faço para que quando eu passar o mouse em cima do edit e quando ele estiver preenchido o cursor do mouse fica de um tipo e quando não tiver nada no edit ele fica com outro tipo de cursor?

Tipo acho que estou montando certo :

If Edit1.Text <> ' ' then
  begin
    cursor := 3dgmove;
  end
else
  begin
    cursor := 3dgarro;
  end;

Mas tipo, teria que ser na hora que for passar o mouse em cima do edit!

Editado Junho 12, 2008 por robinhocne

[Blackleaf]

Cara, eu testei isso aqui no evento ONMOUSEMOVE do Edit1 e consegui apenas mudar o cursor no resto do design e n do Edit1 (fica apenas aquele ''crlBean''), falta alguma coisa para funcionar certo.

[Jhonas]

Como eu faço para que quando eu passar o mouse em cima do edit e quando ele estiver preenchido o cursor do mouse fica de um tipo e quando não tiver nada no edit ele fica com outro tipo de cursor?

Tenta dessa maneira:

OBS: não tenho estes cursores, poranto usei os que acompanham o delphi

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   If Edit1.Text <> '' then
     begin
       Edit1.cursor := crHandPoint;
     end
   else
     begin
       Edit1.cursor := crMultiDrag;
     end;

end;

abraço

[robinhocne]

Como eu faço para que quando eu passar o mouse em cima do edit e quando ele estiver preenchido o cursor do mouse fica de um tipo e quando não tiver nada no edit ele fica com outro tipo de cursor?

Tenta dessa maneira:

OBS: não tenho estes cursores, poranto usei os que acompanham o delphi

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   If Edit1.Text <> '' then
     begin
       Edit1.cursor := crHandPoint;
     end
   else
     begin
       Edit1.cursor := crMultiDrag;
     end;

end;

abraço

Ok, deu certo colocando assim, mas eu queria colocar esse procedimento no meu formulario que monto os edits em tempo de execução, e ai eu fiz, mas tenho certeza que está errada:

procedure Tfrmpraticas.MudarCursor(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);

var
  Conta : Integer;
begin
   If TEdit( FindComponent( 'ed_' + IntToStr( Conta ) ) ).Text <> '' then
     begin
       TEdit( FindComponent( 'ed_' + IntToStr( Conta ) ) ).Cursor := crHandPoint;
     end
   else
     begin
       TEdit( FindComponent( 'ed_' + IntToStr( Conta ) ) ).cursor := crMultiDrag;
     end;
end;

Como ficaria isso com os componentes em tempo de execução

[Jhonas]

Ok, deu certo colocando assim, mas

eu queria colocar esse procedimento no meu formulario que monto os edits em tempo de execução, e ai eu fiz, mas tenho certeza que está errada:

procedure Tfrmpraticas.MudarCursor(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);

var
  Conta : Integer;
begin
   If TEdit( FindComponent( 'ed_' + IntToStr( Conta ) ) ).Text <> '' then
     begin
       TEdit( FindComponent( 'ed_' + IntToStr( Conta ) ) ).Cursor := crHandPoint;
     end
   else
     begin
       TEdit( FindComponent( 'ed_' + IntToStr( Conta ) ) ).cursor := crMultiDrag;
     end;
end;

Como ficaria isso com os componentes em tempo de execução

mas tenho certeza que está errada: Amigo... Vou te dar uma ajuda...mas voce precisa estudar mais logica de programação e sintaxe dos comandos do delphi

procedure vermouse;
var i : Integer;
begin

  for i := 0 to Form1.ComponentCount -1 do
    begin
       if Form1.Components[i] is TEdit then
         begin
            if TEdit(Form1.Components[i]).Text = '' then
               begin
                  if Form1.Components[i] is TEdit then
                     TEdit(Form1.Components[i]).Cursor := crHandPoint;
                  end
               else
                  begin
                     if Form1.Components[i] is TEdit then
                        TEdit(Form1.Components[i]).Cursor := crMultiDrag;
                  end;
         end;
    end;

end;

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   vermouse;
end;

procedure TForm1.Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   vermouse;
end;

procedure TForm1.Edit3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   vermouse;
end;

OBS: Ao passar com o cursor nos edits que estiverem no formulario, ele fara uma verificação...

se houver algum conteudo no edit ele mostrara um tipo de cursor ... caso contrario mostrara outro tipo.

abraço

[robinhocne]

Ok, deu certo colocando assim, mas

eu queria colocar esse procedimento no meu formulario que monto os edits em tempo de execução, e ai eu fiz, mas tenho certeza que está errada:

procedure Tfrmpraticas.MudarCursor(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);

var
  Conta : Integer;
begin
   If TEdit( FindComponent( 'ed_' + IntToStr( Conta ) ) ).Text <> '' then
     begin
       TEdit( FindComponent( 'ed_' + IntToStr( Conta ) ) ).Cursor := crHandPoint;
     end
   else
     begin
       TEdit( FindComponent( 'ed_' + IntToStr( Conta ) ) ).cursor := crMultiDrag;
     end;
end;

Como ficaria isso com os componentes em tempo de execução

mas tenho certeza que está errada: Amigo... Vou te dar uma ajuda...mas voce precisa estudar mais logica de programação e sintaxe dos comandos do delphi

procedure vermouse;
var i : Integer;
begin

  for i := 0 to Form1.ComponentCount -1 do
    begin
       if Form1.Components[i] is TEdit then
         begin
            if TEdit(Form1.Components[i]).Text = '' then
               begin
                  if Form1.Components[i] is TEdit then
                     TEdit(Form1.Components[i]).Cursor := crHandPoint;
                  end
               else
                  begin
                     if Form1.Components[i] is TEdit then
                        TEdit(Form1.Components[i]).Cursor := crMultiDrag;
                  end;
         end;
    end;

end;

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   vermouse;
end;

procedure TForm1.Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   vermouse;
end;

procedure TForm1.Edit3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   vermouse;
end;

OBS: Ao passar com o cursor nos edits que estiverem no formulario, ele fara uma verificação... se houver algum conteudo no edit ele mostrara um tipo de cursor ... caso contrario mostrara outro tipo. abraço

ficou dessa maneira:

procedure Tfrmpraticas.MudarCursor;
var i : Integer;
begin

  for i := 0 to frmpraticas.ComponentCount -1 do
    begin
       if frmpraticas.Components[i] is TEdit then
         begin
            if TEdit(frmpraticas.Components[i]).Text = '' then
               begin
                  if frmpraticas.Components[i] is TEdit then
                     TEdit(frmpraticas.Components[i]).Cursor := crHandPoint;
                  end
               else
                  begin
                     if frmpraticas.Components[i] is TEdit then
                        TEdit(frmpraticas.Components[i]).Cursor := crMultiDrag;
                  end;
         end;
    end;
end;

Ai eu coloque no Evento do Mouse, mas.... os edits é criado em tempo de execucao:

for a := 1 to 7 do
            begin
               // cria o edit do codigo do aluno
               edits := TEdit.Create( Self );
               with edits do
                  begin

                     Cursor     := crCross;
                     Parent     := sbxPra;
                     Top        := top_edit;
                     Left       := left_edit;
                     Name       := 'ed_' + IntToStr( a ) + FormatDateTime( 'hhnn', HoraAtual );
                     Width      := 65;
                     //Enabled   := False;
                     ReadOnly   := True;
                     Text       := '';
                     OnDblClick := PreencheEdit;
                     OnKeyDown  := BloqueioDesbloqueio;
                     OnMouseMove := MudarCursor;         <<<<<<<<<<Procedure MudarCursor
                         with Font do
                           Begin
                              Height  := 15;
                              Name    := 'Courier New';
                              Size    := 10;
                           //   Style   := [fsBold];
                           end;
                  end;
             end;

Ai quando eu rodo ele e passo o mouse em cima ele dá esse erro:

Access violation at address 00428690 in module 'sistemacfc.exe'. Read of address 0000010

e agora o que estou fazendo de errado, passei o fim de semana inteiro nisso e nada.?

[Jhonas]

Access violation at address 00428690 in module 'sistemacfc.exe'. Read of address 0000010

e agora o que estou fazendo de errado, passei o fim de semana inteiro nisso e nada.?

voce passar mais tempo nisso se não entender o que esta fazendo....

Cursor     := crCross;
                     Parent     := sbxPra;
                     Top        := top_edit;
                     Left       := left_edit;
                     Name       := 'ed_' + IntToStr( a ) + FormatDateTime( 'hhnn', HoraAtual );
                     Width      := 65;
                     //Enabled   := False;
                     ReadOnly   := True;
                     Text       := '';
--------------------------------------> ate aqui voce trabalhou com properiedades do componente ( sem erros )

                     OnDblClick := PreencheEdit;
                     OnKeyDown  := BloqueioDesbloqueio;
                     OnMouseMove := MudarCursor; 

--------------------------------------> aqui são eventos do componete, que antes de atribuir a eles uma procedure, voce tem que criar estes eventos  (Access violation at address 00428690 in module 'sistemacfc.exe'. Read of address 0000010 )

agora estou sem tempo para te explicar... quem sabe outro colega o ajude

abraço

[robinhocne]

Access violation at address 00428690 in module 'sistemacfc.exe'. Read of address 0000010

e agora o que estou fazendo de errado, passei o fim de semana inteiro nisso e nada.?

voce passar mais tempo nisso se não entender o que esta fazendo....

Cursor     := crCross;
                     Parent     := sbxPra;
                     Top        := top_edit;
                     Left       := left_edit;
                     Name       := 'ed_' + IntToStr( a ) + FormatDateTime( 'hhnn', HoraAtual );
                     Width      := 65;
                     //Enabled   := False;
                     ReadOnly   := True;
                     Text       := '';
--------------------------------------> ate aqui voce trabalhou com properiedades do componente ( sem erros )

                     OnDblClick := PreencheEdit;
                     OnKeyDown  := BloqueioDesbloqueio;
                     OnMouseMove := MudarCursor; 

--------------------------------------> aqui são eventos do componete, que antes de atribuir a eles uma procedure, voce tem que criar estes eventos  (Access violation at address 00428690 in module 'sistemacfc.exe'. Read of address 0000010 )

agora estou sem tempo para te explicar... quem sabe outro colega o ajude abraço

OnDblClick := PreencheEdit;
   OnKeyDown  := BloqueioDesbloqueio;

Mas esses dois evento aqui nessa mesma posição ele funciona normalmente....sem problemas!

[robinhocne]

Ok Resolvido

if Trim(TEdit(Sender).Text) = '' then
    TEdit(Sender).Cursor := crCross
  else
    TEdit(Sender).Cursor := crNo;