La verdad un lujo
Pero me podrian explicar brevemente que es lo que hace?Lo he probado y anda pero no me gusta hacer cosas y no entenderlas Por EJ que significa self yo estoy acostumbrado a trabajar de otra forma ¿Cual es mas conveniente?
procedure TForm1.Button1Click(Sender: TObject);
begin
with TForm2.Create(Self) do // ¿Este self? no lo entiendo
try
OnClose:=Miprocedimiento; //¿Que hace aca?
ShowModal
finally
Free; ¿que es este free?
end;
end;
procedure TForm1.Miprocedimiento(Sender: TObject; var Action: TCloseAction);
begin
{Aquí capturas el evento OnClose del Form2}
ShowMessage('Este mensaje aparecerá justo al momento de cerrar el Form2');
end;
por que este es declarado privado?
|