Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   De delphi a c++ (https://www.clubdelphi.com/foros/showthread.php?t=73527)

aams01 29-04-2011 08:25:25

De delphi a c++
 
Hola e visto en varios temas lo siguiente
Código Delphi [-]
procedure TForm1.Edit1Exit(Sender: TObject);
begin
 if Trim(TEdit(Sender).Text)='' then
  TEdit(Sender).SetFocus;
end;
esto es en Delphi pero como lo podria hacer para c++,
Esta funcion del focus en si no es interesante lo que si es como utilizar
" TEdit(Sender)"
modificando los "." por "->" tal como en c++ marca el siguiente error

Código:

E2285 Could not find a match for 'TEdit::TEdit(TObject *)'  Full parser context
    Clientes.cpp(425): parsing: void _fastcall TFClientes::NombreEnter(TObject *)

E2459 VCL style classes must be constructed using operator new
  Full parser context
    Clientes.cpp(425): parsing: void _fastcall TFClientes::NombreEnter(TObject *)

investigando un poco mas de echo en el tema ttp://www.clubdelphi.com/foros/archive/index.php?t-69153.html

el compañero Caro dice lo siguiente
//en c++ creo que es algo así:
< TEdit > (Sender)-> ............


Cosa que al realizar y modificar el codigo quedaria de la siguiente manera
Código Delphi [-]
void __fastcall TFClientes::NombreEnter(TObject *Sender)
{
 if (Trim(TEdit(Sender)->Text)='')
  TEdit(Sender)->Text="algo q deseo";
}

escafandra 29-04-2011 09:41:09

Código:

void __fastcall TForm1::Edit1Exit(TObject *Sender)
{
  if(((TEdit*)Sender)->Text.Trim() == "")
    ((TEdit*)Sender)->SetFocus();
}

Saludos.

aams01 29-04-2011 17:41:43

un millon de gracias, funciono a la primera.


La franja horaria es GMT +2. Ahora son las 04:29:59.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi