haber si te sirve
Hola no se si comprendí bien lo que quieres hacer, pero creo que quieres crear tus propios procedimientos para desde alli poder acceder a los diferentes objetos como label, edit, button y otros. Lo que yo hago es lo siguiente no se si se ha correcto pero a mi me funciona.
unit Unit1;
interface
uses
........
type
........
procedure Button1Click(Sender: TObject);
procedure cualquierita(Sender: Tobject); // debes declarar tu procedimiento aqui
.......
Imlementacion
procedure TForm1.cualquierita(Sender: Tobject);
begin
milabel.caption := 'estoy aca';
query.sql.text := 'select.... ... ';
query.execsql;
.
.
.
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
cualquierita(Sender);
end;
Espero que te servia ..........
|