Otra forma puede ser, si usas
DataSet's, es al momento de crear o mostrar la forma, verificar el estado del
DataSet para saber que estás haciendo, por ejemplo:
Código Delphi
[-]
procedure TEditForm.CreateForm(Sender: TObject);
begin
case DataSource.DataSet.State of
dsBrowse:
dsEdit:
dsInsert:
end
end;
DataSet.Edit;
with TEditForm.Create(nil) do
try
ShowModal
finally
Free
end;
DataSet.Insert;
with TEditForm.Create(nil) do
try
ShowModal
finally
Free
end;
with TEditForm.Create(nil) do
try
ShowModal
finally
Free
end;
Espero que esto junto con lo que te han comentado mensajes arriba, te sirva para darte una idea de como puedes implementar tus formas de edición de datos...
Saludos...