Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-04-2018
bucanero bucanero is offline
Miembro
 
Registrado: nov 2013
Ubicación: Almería, España
Posts: 208
Poder: 11
bucanero Va camino a la fama
Hola a todos

todo depende de la clase de objetos que pretendas buscar y encontrar, en particular si trabajas con frames/Forms este método te puede servir. Prueba el siguiente código:

Código Delphi [-]
unit UnitMiFrame;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TMiFrame = class(TFrame)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TMiFrame.Button1Click(Sender: TObject);
begin
  MessageDlg('Hola mundo', mtWarning, [mbOK], 0);
end;

initialization
  /// ESTA PARTE ES MUY IMPORTANTE. Registrar la clase para que se pueda localizar mas adelante.
  RegisterClass(TMiFrame);
end.

Código Delphi [-]
type
  TClassFrame = class of TFrame;

procedure TForm1.Button1Click(Sender: TObject);
var
  FPersistentClass: TPersistentClass;
  ClassFrame:TClassFrame;
  frame: TFrame;
begin
  FPersistentClass := FindClass('TMiFrame');
  if Assigned(FPersistentClass) and (FPersistentClass.InheritsFrom(TFrame)) then begin
    ClassFrame := TClassFrame(FPersistentClass);
    try
      frame := ClassFrame.Create(self);
      frame.Parent := Self;
      frame.Left := 100;
      frame.Top := 100;
    except
      on E: Exception do
        MessageDlg(E.message, mtError, [mbOK], 0);
    end;
  end;
end;

Un saludo
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
generar un string a partir de dos celdas de un DbGrid pablopessoa Conexión con bases de datos 3 20-10-2008 18:18:44
Arreglo bi-tri dimensional a partir de un String egostar Varios 10 19-03-2008 19:54:54
Fecha a partir de un string johurgi Varios 4 18-12-2007 13:03:48
Partir un string FunBit Varios 5 25-07-2005 17:58:32
Como crear formas a partir de un string!! Alfonso Castill OOP 7 05-06-2004 05:03:22


La franja horaria es GMT +2. Ahora son las 17:15:35.


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